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