Subversion Repositories DevTools

Rev

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

Rev 1340 Rev 2394
Line 323... Line 323...
323 
        $new_tag =~ s~CC::([^/])~CC::/$1~;
 323 
        $new_tag =~ s~CC::([^/])~CC::/$1~;
324 
print "Modified tag $pvid: $new_tag\n";
 324 
print "Modified tag $pvid: $new_tag\n";
325 
    }
 325 
    }
326 
 
 326 
 
327 
 
 327 
 
328 
    my $m_sqlstr =  "begin release_manager.update_vcs_details($pvid, '$new_tag', $user); end;";
 328 
    my $m_sqlstr =  "begin release_manager.PK_RMAPI.update_vcs_details($pvid, '$new_tag', $user); end;";
329 
    my $sth = $RM_DB->prepare($m_sqlstr);
 329 
    my $sth = $RM_DB->prepare($m_sqlstr);
330 
    if ( defined($sth) )
 330 
    if ( defined($sth) )
331 
    {
 331 
    {
332 
        if ( $sth->execute( ) )
 332 
        if ( $sth->execute( ) )
333 
        {
 333 
        {