Subversion Repositories DevTools

Rev

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

Rev 7337 Rev 7349
Line 511... Line 511...
511 
          pkgInfoHash.Add "ripple_stop", rsTemp.Fields("ripple_stop")
 511 
          pkgInfoHash.Add "ripple_stop", rsTemp.Fields("ripple_stop")
512 
          pkgInfoHash.Add "persist_ripple_stop", rsTemp.Fields("persist_ripple_stop")
 512 
          pkgInfoHash.Add "persist_ripple_stop", rsTemp.Fields("persist_ripple_stop")
513 
          pkgInfoHash.Add "advisory_ripple", rsTemp.Fields("advisory_ripple") <> 0
 513 
          pkgInfoHash.Add "advisory_ripple", rsTemp.Fields("advisory_ripple") <> 0
514 
 
 514 
 
515 
       Else
 515 
       Else
516 
          ' -- Package Version is not a member of the specified release
 516 
          ' -- Package Version is not a released member of the specified release
517 
          '    Get Basic Release and Project Details
 517 
          '    Get Basic Release and Project Details
518 
          Query_String = " select pj.PROJ_ID, rt.RTAG_ID,rt.rtag_name " &_
 518 
          Query_String = " select pj.PROJ_ID, rt.RTAG_ID,rt.rtag_name " &_
519 
                         " from projects pj, release_tags rt" &_
 519 
                         " from projects pj, release_tags rt" &_
520 
                         " where rt.rtag_id=:RTAG_ID" &_
 520 
                         " where rt.rtag_id=:RTAG_ID" &_
521 
                         " and rt.PROJ_ID = pj.PROJ_ID"
 521 
                         " and rt.PROJ_ID = pj.PROJ_ID"
Line 526... Line 526...
526 
              pkgInfoHash.Add "proj_id",   (rsTemp.Fields("proj_id"))
 526 
              pkgInfoHash.Add "proj_id",   (rsTemp.Fields("proj_id"))
527 
          	  pkgInfoHash.Add "rtag_id",   (rsTemp.Fields("rtag_id"))
 527 
          	  pkgInfoHash.Add "rtag_id",   (rsTemp.Fields("rtag_id"))
528 
          	  pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
 528 
          	  pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
529 
          End If
 529 
          End If
530 
 
 530 
 
531 
          ' -- Determine if package is a member of this release
 531 
          ' -- Determine if package is a member of this release and determine base view
- 
 
 532 
		  '    May be a WIP or PENDIND or not in the release ( Won't get here if its releases)
532 
          '    Mark as Not in Release
 533 
          '    Mark as Not in Release
533 
          Query_String = "select pv_id, 0 as env_area from work_in_progress where rtag_id=:RTAG_ID and pv_id=:PV_ID" &_
 534 
          Query_String = "select wip.pv_id, wip.view_id as view_id, vi.view_name, 0 as env_area from work_in_progress wip, views vi where rtag_id=:RTAG_ID and pv_id=:PV_ID and vi.view_id = wip.view_id" &_
534 
                          " union" &_
 535 
                          " union" &_
535 
                          " select pv_id, 1 as env_area from planned where rtag_id=:RTAG_ID and pv_id=:PV_ID" &_
 536 
                          " select pp.pv_id, pp.view_id  as view_id, vi.view_name, 1 as env_area from planned pp, views vi where rtag_id=:RTAG_ID and pv_id=:PV_ID and vi.view_id = pp.view_id" &_
536 
                          " union" &_
 537 
                          " union" &_
537 
                          " select pv_id, 2 as env_area from RELEASE_CONTENT where rtag_id=:RTAG_ID and pv_id=:PV_ID"
 538 
                          " select rc.pv_id, rc.base_view_id as view_id, vi.view_name, 2 as env_area from RELEASE_CONTENT rc, views vi where rtag_id=:RTAG_ID and pv_id=:PV_ID and vi.view_id = rc.base_view_id"
538 
          Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 539 
          Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
539 
          If rsTemp.RecordCount < 1 Then
 540 
          If rsTemp.RecordCount < 1 Then
540 
               pkgInfoHash.Item ("notInRelease") = true
 541 
               pkgInfoHash.Item ("notInRelease") = true
541 
               '
 - 
 
542 
               ' -- Determine related package that is in the release
 - 
 
543 
               '    Use pkg_id and v_ext to locate package
 - 
 
544 
               If pkgInfoHash.Item ("pkg_id") <> "" Then
 - 
 
545 
                   Query_String = "SELECT pv.PV_ID" &_
 - 
 
546 
                                  " FROM RELEASE_CONTENT rc, package_versions pv " &_
- 
 
547 
                                  " WHERE rc.rtag_id = :RTAG_ID" &_
 - 
 
548 
                                  " and rc.PV_ID = pv.pv_id" &_
 - 
 
549 
                                  " and pv.pkg_id = " & pkgInfoHash.Item ("pkg_id") &_
- 
 
550 
                                  " and NVL(pv.v_ext,'') = NVL('"&pkgInfoHash.Item ("v_ext")&"', '')"
 - 
 
551 
                   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 - 
 
552 
                   If rsTemp.RecordCount > 0 Then
 - 
 
553 
                    pkgInfoHash.Item ("pv_id_InRelease") = (rsTemp.Fields("pv_id"))
 - 
 
554 
                   End If
 - 
 
555 
               End If
 - 
 
556 
          Else
 542 
          Else
- 
 
 543 
            pkgInfoHash.Item ("base_view_id") = (rsTemp.Fields("view_id"))
- 
 
 544 
            pkgInfoHash.Item ("view_name") = (rsTemp.Fields("view_name"))
- 
 
 545 
            If rsTemp("env_area") = 0 Then pkgInfoHash.Item ("is_wip") = True
- 
 
 546 
            If rsTemp("env_area") = 1 Then pkgInfoHash.Item ("is_pending") = True
- 
 
 547 
          End If
- 
 
 548 
 
- 
 
 549 
          '
- 
 
 550 
          ' -- Determine related package that is in the release
- 
 
 551 
          '    Use pkg_id and v_ext to locate package
- 
 
 552 
          If pkgInfoHash.Item ("pkg_id") <> "" Then
- 
 
 553 
             Query_String = "SELECT pv.PV_ID, vi.view_name" &_
- 
 
 554 
          				  " FROM RELEASE_CONTENT rc, package_versions pv, views vi" &_
- 
 
 555 
          				  " WHERE rc.rtag_id = :RTAG_ID" &_
- 
 
 556 
          				  " and rc.PV_ID = pv.pv_id" &_
- 
 
 557 
						  " and vi.view_id = rc.base_view_id" &_
- 
 
 558 
          				  " and pv.pkg_id = " & pkgInfoHash.Item ("pkg_id") &_
- 
 
 559 
          				  " and NVL(pv.v_ext,'') = NVL('"&pkgInfoHash.Item ("v_ext")&"', '')"
- 
 
 560 
             Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
557 
            If rsTemp("env_area") = 0 Then
 561 
             If rsTemp.RecordCount > 0 Then
- 
 
 562 
          		pkgInfoHash.Item ("pv_id_InRelease") = (rsTemp.Fields("pv_id"))
558 
                 pkgInfoHash.Item ("is_wip") = True
 563 
                'pkgInfoHash.Remove ("base_view_id")
- 
 
 564 
                pkgInfoHash.Item ("release_view_name") = (rsTemp.Fields("view_name"))
559 
            End If
 565 
             End If
560 
          End If
 566 
          End If
561 
 
 567 
 
562 
       End If
 568 
       End If
563 
 
 569 
 
564 
       ' Determine if user can make the the package 'unofficial'
 570 
       ' Determine if user can make the the package 'unofficial'
Line 630... Line 636...
630 
 
 636 
 
631 
   ' Determine if we are building this package on any build machine
 637 
   ' Determine if we are building this package on any build machine
632 
   '
 638 
   '
633 
   pkgInfoHash.Add "isBuilding", isBuilding(SSpv_id)
 639 
   pkgInfoHash.Add "isBuilding", isBuilding(SSpv_id)
634 
 
 640 
 
635 
 
 - 
 
636 
   OraDatabase.Parameters.Remove "PV_ID"
 - 
 
637 
   OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
638 
   OraDatabase.Parameters.Remove "RETURN_NUMBER"
 - 
 
639 
   OraDatabase.Parameters.Remove "OP_CODE_LIST"
 - 
 
640
- 
 
641 
   'On Error Resume Next
 641 
   'On Error Resume Next
642 
   'On Error Goto 0
 642 
   'On Error Goto 0
643 
 
 643 
 
644 
   ' check if package is released
 644 
   ' check if package is released
645 
   If NOT isaRelease Then
 645 
   If NOT isaRelease Then
646 
     pkgInfoHash.Add "is_released", False
 646 
     pkgInfoHash.Add "is_released", False
647 
   Else
 647 
   Else
648 
     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))
 648 
     Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT rc.pv_id FROM release_content rc WHERE rc.rtag_id = :RTAG_ID AND rc.pv_id = :PV_ID", cint(0))
649 
     pkgInfoHash.Add "is_released", rsTemp.RecordCount <> 0
 649 
     pkgInfoHash.Add "is_released", rsTemp.RecordCount <> 0
650 
   End If
 650 
   End If
651 
 
 651 
 
652 
   ' check if package is excluded from build
 652 
   ' check if package is excluded from build
653 
   pkgInfoHash.Add "is_excluded", False
 653 
   pkgInfoHash.Add "is_excluded", False
654 
   pkgInfoHash.Add "has_build_failure", False
 654 
   pkgInfoHash.Add "has_build_failure", False
655 
   If isaRelease Then
 655 
   If isaRelease Then
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 
     Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT dnr.pv_id,dnr.root_pv_id FROM do_not_ripple dnr WHERE dnr.rtag_id = :RTAG_ID AND dnr.pv_id = :PV_ID", cint(0))
657 
     If rsTemp.RecordCount <> 0 Then
 657 
     If rsTemp.RecordCount <> 0 Then
658 
       pkgInfoHash("is_excluded") = True
 658 
       pkgInfoHash("is_excluded") = True
659 
       pkgInfoHash("has_build_failure") = IsNull(rsTemp("root_pv_id"))
 659 
       pkgInfoHash("has_build_failure") = IsNull(rsTemp("root_pv_id"))
660 
     End If
 660 
     End If
661 
   End If
 661 
   End If
662 
 
 662 
 
663 
   ' Check if Package is deprecated
 663 
   ' Check if Package is deprecated
664 
   If isaRelease Then
 664 
   If isaRelease Then
665 
     Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& NNrtag &" AND "& EmptyToNullString("V_EXT", pkgInfoHash.Item ("v_ext")) &" AND PKG_ID = "& pkgInfoHash.Item ("pkg_id") &"", cint(0))
 665 
     Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM DEPRECATED_PACKAGES WHERE RTAG_ID = :RTAG_ID AND "& EmptyToNullString("V_EXT", pkgInfoHash.Item ("v_ext")) &" AND PKG_ID = "& pkgInfoHash.Item ("pkg_id") &"", cint(0))
666 
     If rsTemp.RecordCount > 0 Then
 666 
     If rsTemp.RecordCount > 0 Then
667 
        pkgInfoHash.Add "is_deprecated", True
 667 
        pkgInfoHash.Add "is_deprecated", True
668 
     End If
 668 
     End If
669 
   End If
 669 
   End If
670 
 
 670 
 
Line 673... Line 673...
673 
       Set rsTemp = OraDatabase.DbCreateDynaset( "select count(*) as count from package_versions pv where pkg_id = " & pkgInfoHash.Item ("pkg_id"), cint(0))
 673 
       Set rsTemp = OraDatabase.DbCreateDynaset( "select count(*) as count from package_versions pv where pkg_id = " & pkgInfoHash.Item ("pkg_id"), cint(0))
674 
       pkgInfoHash.Add "pkg_count" , rsTemp("count")
 674 
       pkgInfoHash.Add "pkg_count" , rsTemp("count")
675 
   End If
 675 
   End If
676 
 
 676 
 
677 
   ' Does this package have any dependencies
 677 
   ' Does this package have any dependencies
678 
   Set rsTemp = OraDatabase.DbCreateDynaset( "select count(*) as depCount from package_dependencies where pv_id = " & SSpv_id, cint(0))
 678 
   Set rsTemp = OraDatabase.DbCreateDynaset( "select count(*) as depCount from package_dependencies where pv_id = :PV_ID", cint(0))
679 
   pkgInfoHash.Add "depCount" , rsTemp("depCount")
 679 
   pkgInfoHash.Add "depCount" , rsTemp("depCount")
680 
 
 680 
 
681 
 
 681 
 
682 
   rsTemp.Close
 682 
   rsTemp.Close
683 
   Set rsTemp = nothing
 683 
   Set rsTemp = nothing
684 
 
 684 
 
- 
 
 685 
   OraDatabase.Parameters.Remove "PV_ID"
- 
 
 686 
   OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 687 
   OraDatabase.Parameters.Remove "RETURN_NUMBER"
- 
 
 688 
   OraDatabase.Parameters.Remove "OP_CODE_LIST"
- 
 
 689 
 
685 
End Sub
 690 
End Sub
686 
'-----------------------------------------------------------------------------------------------------------------------------
 691 
'-----------------------------------------------------------------------------------------------------------------------------
687 
' Get Package Info - when we don't have a package
 692 
' Get Package Info - when we don't have a package
688 
Sub Get_NoPkg_Info(NNrtag)
 693 
Sub Get_NoPkg_Info(NNrtag)
689 
	Dim rsTemp, Query_String
 694 
	Dim rsTemp, Query_String