Subversion Repositories DevTools

Rev

Rev 7029 | Rev 7240 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7029 Rev 7030
Line 636... Line 636...
636
   OraDatabase.Parameters.Remove "PV_ID"
636
   OraDatabase.Parameters.Remove "PV_ID"
637
   OraDatabase.Parameters.Remove "RTAG_ID"
637
   OraDatabase.Parameters.Remove "RTAG_ID"
638
   OraDatabase.Parameters.Remove "RETURN_NUMBER"
638
   OraDatabase.Parameters.Remove "RETURN_NUMBER"
639
   OraDatabase.Parameters.Remove "OP_CODE_LIST"
639
   OraDatabase.Parameters.Remove "OP_CODE_LIST"
640
                
640
                
641
   On Error Resume Next
641
   'On Error Resume Next
-
 
642
   'On Error Goto 0
642
 
643
 
643
   ' check if package is released
644
   ' check if package is released
644
   If NOT isaRelease Then
645
   If NOT isaRelease Then
645
     pkgInfoHash.Add "is_released", False
646
     pkgInfoHash.Add "is_released", False
646
   Else
647
   Else
Line 650... Line 651...
650
 
651
 
651
   ' check if package is excluded from build
652
   ' check if package is excluded from build
652
   pkgInfoHash.Add "is_excluded", False
653
   pkgInfoHash.Add "is_excluded", False
653
   pkgInfoHash.Add "has_build_failure", False
654
   pkgInfoHash.Add "has_build_failure", False
654
   If isaRelease Then
655
   If isaRelease Then
655
     Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT dnr.pv_id,dnr.root_file FROM do_not_ripple dnr WHERE dnr.rtag_id = " & NNrtag & " AND dnr.pv_id = " & SSpv_id, cint(0))
656
     Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT dnr.pv_id,dnr.root_pv_id FROM do_not_ripple dnr WHERE dnr.rtag_id = " & NNrtag & " AND dnr.pv_id = " & SSpv_id, cint(0))
656
     If rsTemp.RecordCount <> 0 Then
657
     If rsTemp.RecordCount <> 0 Then
657
       pkgInfoHash("is_excluded") = True
658
       pkgInfoHash("is_excluded") = True
658
       pkgInfoHash("has_build_failure") = Not IsNull(rsTemp("root_file"))
659
       pkgInfoHash("has_build_failure") = IsNull(rsTemp("root_pv_id"))
659
     End If
660
     End If
660
   End If
661
   End If
661
 
662
 
662
   ' Check if Package is deprecated
663
   ' Check if Package is deprecated
663
   If isaRelease Then
664
   If isaRelease Then