Subversion Repositories DevTools

Rev

Rev 315 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 315 Rev 321
Line 313... Line 313...
313 
my $reserved = undef;
 313 
my $reserved = undef;
314 
foreach ( @last_results )
 314 
foreach ( @last_results )
315 
{
 315 
{
316 
    #
 316 
    #
317 
    #   Once reserved has been seen, the next line will contain the view path
 317 
    #   Once reserved has been seen, the next line will contain the view path
- 
 
 318 
    #   Note: ClearCmd has changed \ to /, so change them back
- 
 
 319 
    #         May be problematical. It looks like this has been
- 
 
 320 
    #         changed several times.
318 
    #
 321 
    #
319 
    if ( $reserved )
 322 
    if ( $reserved )
320 
    {
 323 
    {
321 
        m~\(\"(.+)\"\)~;
 324 
        m~\(\"(.+)\"\)~;
322 
        my $view = $1;
 325 
        my $view = $1;
323 
#        $view =~ s~/~\\~g unless ( $ENV{GBE_UNIX} );
 326 
        $view =~ s~/~\\~g unless ( $ENV{GBE_UNIX} );
324 
        Verbose2 ("Reserved checkout: Target View: $view" );
 327 
        Verbose ("Reserved checkout: Target View: $view" );
325 
        ClearCmd( 'unreserve', '-comment', 'Unreserved by JATS ABTSAVE', '-view', $view, $opt_ofile );
 328 
        ClearCmd( 'unreserve', '-comment', 'Unreserved by JATS ABTSAVE', '-view', $view, $opt_ofile );
326 
 
 - 
 
327 
        #
 329 
        #
328 
        #   Only one reserved file can exist, so there is no more to do
 330 
        #   Only one reserved file can exist, so there is no more to do
329 
        #
 331 
        #
330 
        last;
 332 
        last;
331 
    }
 333 
    }
Line 583... Line 585...
583 
        #
 585 
        #
584 
        ClearCmd('describe', '-fmt', '%Ln', 'vob:.');
 586 
        ClearCmd('describe', '-fmt', '%Ln', 'vob:.');
585 
        Error ("Program Terminated") if ( @error_list );
 587 
        Error ("Program Terminated") if ( @error_list );
586 
        Error ("Cannot determine current VOB base" ) unless ( $last_result );
 588 
        Error ("Cannot determine current VOB base" ) unless ( $last_result );
587 
        my $vob_base = quotemeta($last_result);
 589 
        my $vob_base = quotemeta($last_result);
588 
        Verbose ("VOB Base: $vob_base");
 590 
        Verbose ("VOB Base: $last_result");
589 
 
 591 
 
590 
        my $here =  getcwd();
 592 
        my $here =  getcwd();
591 
        Verbose ("Current dir: $here");
 593 
        Verbose ("Current dir: $here");
592 
 
 594 
 
593 
        $here =~ m~^(.*$vob_base)~;
 595 
        $here =~ m~^(.*$vob_base)~;
Line 596... Line 598...
596 
 
 598 
 
597 
        chdir ( $base_dir ) || Error ("Cannot chdir to vob base", $base_dir);
 599 
        chdir ( $base_dir ) || Error ("Cannot chdir to vob base", $base_dir);
598 
 
 600 
 
599 
        #
 601 
        #
600 
        #   Label the entire (static) view
 602 
        #   Label the entire (static) view
- 
 
 603 
        #       This will work because this should only be done within a
- 
 
 604 
        #       static view based on a single label. Thus the view should
- 
 
 605 
        #       contain ony the files that form the current package.
601 
        #   Handle errors as error exit will clean up
 606 
        #   Handle errors as error exit will clean up
602 
        #
 607 
        #
603 
        my $rv =JatsCmd( 'label', '-label', $tag_label, '-replace', '-lock' );
 608 
        my $rv = JatsCmd( 'label', '-label', $tag_label, '-replace', '-lock' );
604 
        Error ("Failed to label all files in view")
 609 
        Error ("Failed to label all files in view")
605 
            if ( $rv );
 610 
            if ( $rv );
606 
    }
 611 
    }
607 
 
 612 
 
608 
    #
 613 
    #