Subversion Repositories DevTools

Rev

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

Rev 4096 Rev 5073
Line 1248... Line 1248...
1248 
    my $repoLink = $uref->{InfoWs}{URL} . '@' . $uref->{InfoWs}{Revision};
 1248 
    my $repoLink = $uref->{InfoWs}{URL} . '@' . $uref->{InfoWs}{Revision};
1249 
    $uref->{DEVBRANCH} =  join ('/', 'branches', $opt_branch);
 1249 
    $uref->{DEVBRANCH} =  join ('/', 'branches', $opt_branch);
1250 
    my $branch_tag = $uref->SvnCopy (
 1250 
    my $branch_tag = $uref->SvnCopy (
1251 
                'old' => $repoLink,
 1251 
                'old' => $repoLink,
1252 
                'new' => join ('/', $ws_url, $uref->{DEVBRANCH} ),
 1252 
                'new' => join ('/', $ws_url, $uref->{DEVBRANCH} ),
1253 
                'comment' => $opt_comment ? $opt_comment : 'Created by Jats svn branch',
 1253 
                'comment' => $opt_comment ? $opt_comment : ('Created by Jats svn branch:' . $opt_branch),
1254 
                'replace' => 0,
 1254 
                'replace' => 0,
1255 
                );
 1255 
                );
1256 
 
 1256 
 
1257 
 
 1257 
 
1258 
    if ( $opt_switch )
 1258 
    if ( $opt_switch )
Line 1279... Line 1279...
1279 
#                   target => join ('/', $ws_url, 'branches', $opt_branch),
 1279 
#                   target => join ('/', $ws_url, 'branches', $opt_branch),
1280 
#                   'allowLocalMods' => 1,
 1280 
#                   'allowLocalMods' => 1,
1281 
#                   'noupdatecheck' => 1,
 1281 
#                   'noupdatecheck' => 1,
1282 
#                   'noswitch' => ! $opt_switch,
 1282 
#                   'noswitch' => ! $opt_switch,
1283 
#                   'replace' => 0,
 1283 
#                   'replace' => 0,
1284 
#                   'comment' => $opt_comment ? $opt_comment : 'Created by Jats svn branch',
 1284 
#                   'comment' => $opt_comment ? $opt_comment : ('Created by Jats svn branch:' . $opt_branch),
1285 
#                   );
 1285 
#                   );
1286 
#
 1286 
#
1287 
#    Message ("Repository Ref: " . $uref->RmRef);
 1287 
#    Message ("Repository Ref: " . $uref->RmRef);
1288 
#    Message ("Vcs Tag       : " . $uref->SvnTag);
 1288 
#    Message ("Vcs Tag       : " . $uref->SvnTag);
1289 
 
 1289