Changeset 24103

Show
Ignore:
Timestamp:
31.05.2011 16:27:41 (8 years ago)
Author:
ak19
Message:

Some minor oversights fixed.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/bin/script/gsConvert.pl

    r24093 r24103  
    413413    # formulate the command 
    414414    my $cmd = ""; 
    415     $full_perl_path = &util::filename_cat($ENV{'PERLPATH'},"perl"); 
     415    my $full_perl_path = &util::filename_cat($ENV{'PERLPATH'},"perl"); 
    416416    $cmd .= "$full_perl_path -S ppttohtml.pl "; 
    417417    $cmd .= " \"$input_filename\" \"$output_filestem.html\""; 
     
    447447    # formulate the command 
    448448    my $cmd = ""; 
    449     $full_perl_path = &util::filename_cat($ENV{'PERLPATH'},"perl"); 
    450     $cmd .= "$full_perl_perl -S xlstohtml.pl "; 
     449    my $full_perl_path = &util::filename_cat($ENV{'PERLPATH'},"perl"); 
     450    $cmd .= "$full_perl_path -S xlstohtml.pl "; 
    451451    $cmd .= " \"$input_filename\" \"$output_filestem.html\""; 
    452452    $cmd .= " 2>\"$output_filestem.err\"" 
     
    986986    my $cmd = ""; 
    987987    if ($timeout) {$cmd = "ulimit -t $timeout;";} 
    988     $full_perl_path = &util::filename_cat($ENV{'PERLPATH'},"perl"); 
     988    my $full_perl_path = &util::filename_cat($ENV{'PERLPATH'},"perl"); 
    989989    $cmd .= "$full_perl_path -S pdftohtml.pl -zoom $pdf_zoom"; 
    990990    $cmd .= " -c" if ($pdf_complex); 
     
    10611061    if ($timeout) {$cmd = "ulimit -t $timeout;";} 
    10621062    $output_type =~ s/.*\_(.*)/$1/i; 
    1063     $full_perl_path = &util::filename_cat($ENV{'PERLPATH'},"perl"); 
    1064     $cmd .= "$full_perl_perl -S pdfpstoimg.pl -convert_to $output_type \"$input_filename\" \"$output_filestem\""; 
     1063    my $full_perl_path = &util::filename_cat($ENV{'PERLPATH'},"perl"); 
     1064    $cmd .= "$full_perl_path -S pdfpstoimg.pl -convert_to $output_type \"$input_filename\" \"$output_filestem\""; 
    10651065    if ($ENV{'GSDLOS'} !~ m/^windows$/i || $is_winnt_2000) { 
    10661066    $cmd .= " > \"$output_filestem.out\" 2> \"$output_filestem.err\"";