Subversion Repositories DevTools

Rev

Rev 185 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 185 Rev 1376
Line 509... Line 509...
509
   OraDatabase.Parameters.Remove "PV_ID"
509
   OraDatabase.Parameters.Remove "PV_ID"
510
   OraDatabase.Parameters.Remove "RTAG_ID"
510
   OraDatabase.Parameters.Remove "RTAG_ID"
511
   OraDatabase.Parameters.Remove "RETURN_NUMBER"
511
   OraDatabase.Parameters.Remove "RETURN_NUMBER"
512
 
512
 
513
 
513
 
-
 
514
   On Error Resume Next
514
   ' check if package is released
515
   ' check if package is released
515
   If (NNrtag = "") or (IsNull(NNrtag)) Then
516
   If (NNrtag = "") or (IsNull(NNrtag)) Then
516
     pkgInfoHash.Add "is_released", False
517
     pkgInfoHash.Add "is_released", False
517
   Else
518
   Else
518
     Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT rc.pv_id FROM release_content rc WHERE rc.rtag_id = " & NNrtag & " AND rc.pv_id = " & SSpv_id, cint(0))
519
     Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT rc.pv_id FROM release_content rc WHERE rc.rtag_id = " & NNrtag & " AND rc.pv_id = " & SSpv_id, cint(0))
Line 1249... Line 1250...
1249
      Codestriker_Command = "jats CCdiff -old=" & oldLabel & " -new=" & new_label
1250
      Codestriker_Command = "jats CCdiff -old=" & oldLabel & " -new=" & new_label
1250
   End If
1251
   End If
1251
End Function
1252
End Function
1252
 
1253
 
1253
'---------------------------------------------------------------
1254
'---------------------------------------------------------------
1254
' Function: BeyondCompare_Command
-
 
1255
'
-
 
1256
' Purpose:   Forms a beyond compare differencing command for use
-
 
1257
'            in visual inspection of code baseline differences.
-
 
1258
'            This will be used mainly on release notes pages.
-
 
1259
'
-
 
1260
' Arguments: old_label   : The previous or older label
-
 
1261
'            new_label   : The current or newer label
-
 
1262
'
-
 
1263
Function BeyondCompare_Command (oldLabel, new_label)
-
 
1264
 
-
 
1265
   If ( IsNull(new_label) ) Then
-
 
1266
      BeyondCompare_Command = "Label not defined"
-
 
1267
   ElseIf (IsNull(oldLabel) OR oldLabel = "" ) Then
-
 
1268
      BeyondCompare_Command = "No prior label to compare with"
-
 
1269
   Else
-
 
1270
      BeyondCompare_Command = "jats CCbc2 -old=" & oldLabel & " -new=" & new_label
-
 
1271
   End If
-
 
1272
End Function
-
 
1273
 
-
 
1274
'---------------------------------------------------------------
-
 
1275
' Function: getLastNonRippleVersionPVID
1255
' Function: getLastNonRippleVersionPVID
1276
'
1256
'
1277
' Purpose: returns the last non-ripple version of the package
1257
' Purpose: returns the last non-ripple version of the package
1278
'
1258
'
1279
' Arguments: this_pv_id : string
1259
' Arguments: this_pv_id : string