Subversion Repositories DevTools

Rev

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

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