Subversion Repositories DevTools

Rev

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

Rev 5535 Rev 5609
Line 631... Line 631...
631 
 
 631 
 
632 
    # Get all packages that are a part of a non-deprecated SDK
 632 
    # Get all packages that are a part of a non-deprecated SDK
633 
    # Only get the 'exposed' packages
 633 
    # Only get the 'exposed' packages
634 
 
 634 
 
635 
    my $limit = $opt_limit ? " AND rownum <= $opt_limit" : '';
 635 
    my $limit = $opt_limit ? " AND rownum <= $opt_limit" : '';
636 
    my $m_sqlstr =
636 
    my $m_sqlstr =
637 
        " SELECT DISTINCT pv.pv_id,".               #[0]
637 
        "SELECT DISTINCT pv.pv_id,".                        #[0]
638 
        "   pkg.pkg_name,".                         #[1]
638 
        "  pkg.pkg_name,".                                  #[1]
639 
        "   pv.pkg_version".                        #[2]
639 
        "  pv.pkg_version".                                 #[2]
640 
        " FROM bom_contents bc,".
 640 
        " FROM DEPLOYMENT_MANAGER.bom_contents bc,".
641 
        "   DEPLOYMENT_MANAGER.operating_systems os,".
 641 
        "     DEPLOYMENT_MANAGER.operating_systems os,".
642 
        "   DEPLOYMENT_MANAGER.os_contents osc,".
 642 
        "     DEPLOYMENT_MANAGER.os_contents osc,".
643 
        "   DEPLOYMENT_MANAGER.PACKAGES pkg,".
 643 
        "     DEPLOYMENT_MANAGER.PACKAGES pkg,".
644 
        "   DEPLOYMENT_MANAGER.PACKAGE_VERSIONS pv,".
 644 
        "     DEPLOYMENT_MANAGER.PACKAGE_VERSIONS pv,".
645 
        "   DEPLOYMENT_MANAGER.PRODUCT_DETAILS pd".
 645 
        "     DEPLOYMENT_MANAGER.PRODUCT_DETAILS pd".
646 
        " WHERE osc.os_id = os.os_id".
 646 
        " WHERE osc.os_id = os.os_id".
647 
        " AND os.node_id  = bc.node_id".
 647 
        " AND os.node_id  = bc.node_id".
648 
        " AND bc.bom_id  IN".
 648 
        " AND bc.bom_id  IN".
649 
        "   (SELECT bom_id".
 649 
        "  (SELECT bom_id".
650 
        "   FROM".
 650 
        "  FROM".
651 
        "     (SELECT bom_id,".
 651 
        "    (SELECT bs.bom_id, b.branch_id, state_id,".
652 
        "       state_id,".
 - 
 
653 
        "       RANK( ) OVER (PARTITION BY state_id ORDER BY bom_id DESC) SRLNO".
 652 
        "      RANK( ) OVER (PARTITION BY bs.state_id,b.branch_id ORDER BY bs.bom_id DESC) SRLNO".
654 
        "     FROM DEPLOYMENT_MANAGER.bom_state".
 653 
        "    FROM DEPLOYMENT_MANAGER.bom_state bs ,".
- 
 
 654 
        "         DEPLOYMENT_MANAGER.boms b".
- 
 
 655 
        "    WHERE bs.bom_id = b.bom_id".
655 
        "     )".
 656 
        "    )".
656 
        "   WHERE SRLNO <= 2".
 657 
        "  WHERE SRLNO <= 2".
657 
        "   )".
 658 
        "  )".
658 
        " AND pd.PROD_ID (+) = osc.PROD_ID".
 659 
        " AND pd.PROD_ID (+) = osc.PROD_ID".
659 
        " AND pv.pkg_id      = pkg.pkg_id".
 660 
        " AND pv.pkg_id      = pkg.pkg_id".
660 
        " AND osc.prod_id    = pv.pv_id".
 661 
        " AND osc.prod_id    = pv.pv_id".
661 
        " ORDER BY UPPER(pkg.pkg_name),".
 662 
        " ORDER BY UPPER(pkg.pkg_name), ".
662 
        "   UPPER(pv.PKG_VERSION)".
 663 
        "          UPPER(pv.PKG_VERSION)".
663 
        $limit;
 664 
        $limit;
664 
 
 665 
 
665 
    Verbose3("GetRecentDMPackages: $m_sqlstr");
 666 
    Verbose3("GetRecentDMPackages: $m_sqlstr");
666 
    my $sth = $DM_DB->prepare($m_sqlstr);
 667 
    my $sth = $DM_DB->prepare($m_sqlstr);
667 
    if ( defined($sth) )
 668 
    if ( defined($sth) )