Subversion Repositories DevTools

Rev

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

Rev 375 Rev 1329
Line 256... Line 256...
256 
#
 256 
#
257 
# Returns         :
257 
# Returns         :
258 
#
 258 
#
259 
sub label_build_view
 259 
sub label_build_view
260 
{
 260 
{
- 
 
 261 
    my $author;
- 
 
 262 
 
- 
 
 263 
    #
- 
 
 264 
    #   Determine the author of the workspace - before we update it
- 
 
 265 
    #   The original author will be used to mark the work in the repo
- 
 
 266 
    #   This better describes the task done
- 
 
 267 
    #
- 
 
 268 
    $author = $session->{'InfoWs'}{'Last Changed Author'};
- 
 
 269 
    Error ("Internal: Svn Session data item 'InfoWs' not present")
- 
 
 270 
        unless ( defined $author );
- 
 
 271 
 
261 
    #
 272 
    #
262 
    #   Save the current workspace - with its modified build file
 273 
    #   Save the current workspace - with its modified build file
263 
    #
 274 
    #
264 
    Verbose ("Apply new label to package: $tag_label");
 275 
    Verbose ("Apply new label to package: $tag_label");
265 
    $session->SvnCopyWs (
 276 
    $session->SvnCopyWs (
Line 269... Line 280...
269 
               'replace'  => 0,
 280 
               'replace'  => 0,
270 
               'comment'  => 'Created by Jats SaveBuild',
 281 
               'comment'  => 'Created by Jats SaveBuild',
271 
               );
 282 
               );
272 
    Message ("Repository Ref: " . $session->RmRef);
 283 
    Message ("Repository Ref: " . $session->RmRef);
273 
 
 284 
 
- 
 
 285 
    #
- 
 
 286 
    #   Update the svn:author of the workspace rather than 'buildadm'
- 
 
 287 
    #
- 
 
 288 
    Verbose ("Author: $author");
- 
 
 289 
    $session->setRepoProperty('svn:author', $author);
- 
 
 290 
 
274 
    if ( $opt_isa_wip )
 291 
    if ( $opt_isa_wip )
275 
    {
 292 
    {
276 
        #
 293 
        #
277 
        #   If the build is based on a WIP, then we can delete the
 294 
        #   If the build is based on a WIP, then we can delete the
278 
        #   WIP if its based on a branch. If its a TAG, then only delete it if
 295 
        #   WIP if its based on a branch. If its a TAG, then only delete it if