Subversion Repositories DevTools

Rev

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

Rev 255 Rev 263
Line 1623... Line 1623...
1623 
            Verbose ("view($view) label($label) path($path)");
 1623 
            Verbose ("view($view) label($label) path($path)");
1624 
            print FH "view($view) label($label) path($path) : TEST\n";
 1624 
            print FH "view($view) label($label) path($path) : TEST\n";
1625 
        }
 1625 
        }
1626 
        else
 1626 
        else
1627 
        {
 1627 
        {
1628 
            my $rv = JatsCmd ("extract -extractfiles \"-view=$view\" \"-label=$label\" -path=\"$path\" -root=. -noprefix");
 1628 
            my $rv = JatsCmd ('extract', '-extractfiles', "-view=$view", "-label=$label", "-path=$path", "-root=.", "-noprefix");
1629 
            print FH "$view : SUCCESS\n" unless $rv;
 1629 
            print FH "$view : SUCCESS\n" unless $rv;
1630 
            print FH "$view : ERROR\n" if $rv;
 1630 
            print FH "$view : ERROR\n" if $rv;
1631 
        }
 1631 
        }
1632 
    }
 1632 
    }
1633 
    close FH;
 1633 
    close FH;