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) )