Subversion Repositories DevTools

Rev

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

Rev 2026 Rev 4538
Line 60... Line 60...
60 
{
 60 
{
61 
    my $foundDetails = 0;
 61 
    my $foundDetails = 0;
62 
    my (@row);
 62 
    my (@row);
63 
 
 63 
 
64 
    # if we are not or cannot connect then return 0 as we have not found anything
 64 
    # if we are not or cannot connect then return 0 as we have not found anything
65 
    connectRM(\$RM_DB);
 65 
    connectRM(\$RM_DB, 9);
66 
 
 66 
 
67 
    # First get all packages that are referenced in a Release
 67 
    # First get all packages that are referenced in a Release
68 
    # This will only get the top level packages
 68 
    # This will only get the top level packages
69 
    # From non-archived releases
 69 
    # From non-archived releases
70 
 
 70 
 
- 
 
 71 
    # This select currently works
71 
    my $pvid = 129265;
 72 
    my $pvid = 129265;
72 
    my $m_sqlstr0 = "SELECT release_manager.PK_RMAPI.return_vcs_tag($pvid)".
 73 
    my $m_sqlstr0 = "SELECT release_manager.PK_RMAPI.return_vcs_tag($pvid)".
73 
                   " FROM RELEASE_MANAGER.PACKAGE_VERSIONS pv" .
 74 
                   " FROM RELEASE_MANAGER.PACKAGE_VERSIONS pv" .
74 
                   " WHERE pv.PV_ID = \'$pvid\'";
 75 
                   " WHERE pv.PV_ID = \'$pvid\'";
75 
 
 76 
 
- 
 
 77 
    # This begin does not yet work
- 
 
 78 
    #   ORA-01008: not all variables bound
76 
    my $m_sqlstrx =  "begin ? := release_manager.PK_RMAPI.return_vcs_tag($pvid); end;";
 79 
    my $m_sqlstr1 =  "begin ? := release_manager.PK_RMAPI.return_vcs_tag($pvid); end;";
- 
 
 80 
    my $m_sqlstr2 =  "begin aa := release_manager.PK_RMAPI.return_vcs_tag($pvid); end;";
- 
 
 81 
 
- 
 
 82 
    # This begin does not yet work
77 
    my $m_sqlstr =  "begin release_manager.pk_buildapi.set_resume(); end;";
 83 
    my $m_sqlstr =  "begin release_manager.pk_buildapi.set_resume(); end;";
78 
 
 84 
 
- 
 
 85 
print("$m_sqlstr\n");
79 
    my $sth = $RM_DB->prepare($m_sqlstr);
 86 
    my $sth = $RM_DB->prepare($m_sqlstr);
80 
    if ( defined($sth) )
 87 
    if ( defined($sth) )
81 
    {
 88 
    {
82 
        if ( $sth->execute( ) )
 89 
        if ( $sth->execute( ) )
83 
        {
 90 
        {