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