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
    #