version 1.54, 2004/04/23 19:47:38
|
version 1.57, 2004/05/12 18:34:47
|
Line 89 END
|
Line 89 END
|
close $temporary_file; |
close $temporary_file; |
my $noteps; |
my $noteps; |
my %prog_state; |
my %prog_state; |
if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline'); } |
if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','75'); } |
foreach $not_eps (@content_of_file) { |
foreach $not_eps (@content_of_file) { |
chomp($not_eps); |
chomp($not_eps); |
if ($not_eps ne '') { |
if ($not_eps ne '') { |
Line 100 END
|
Line 100 END
|
if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) { |
if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) { |
$eps_f=~s/\/home\/([^\/]+)\/public_html/$1/; |
$eps_f=~s/\/home\/([^\/]+)\/public_html/$1/; |
$eps_f = '/home/httpd/prtspool/'.$eps_f; |
$eps_f = '/home/httpd/prtspool/'.$eps_f; |
} else { |
} elsif ($eps_f=~/\/home\/httpd\/html\/res\//) { |
$eps_f=~m/\/home\/httpd\/html\/res\/(.+)/; |
$eps_f=~m/\/home\/httpd\/html\/res\/(.+)/; |
$eps_f = '/home/httpd/prtspool/'.$1; |
$eps_f = '/home/httpd/prtspool/'.$1; |
|
} elsif ($eps_f=~/\/home\/httpd\/lonUsers\//) { |
|
$eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/; |
|
$eps_f = '/home/httpd/prtspool/'.$1.'/'.$2; |
} |
} |
my $path=$eps_f; |
my $path=$eps_f; |
$path=~s/\/([^\/]+)\.eps$//; |
$path=~s/\/([^\/]+)\.eps$//; |
Line 151 END
|
Line 154 END
|
|
|
my $ind=-1; |
my $ind=-1; |
my %prog_state; |
my %prog_state; |
if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline'); } |
if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline','75'); } |
my $final_statement="<a href=\"$backref\"><b>Return</b></a> to last resource.<br /><br />Generated PDF File for:<br />"; |
my $final_statement="<a href=\"$backref\"><b>Return</b></a> to last resource.<br /><br />Generated PDF File for:<br />"; |
foreach $texfile (@texfile) { |
foreach $texfile (@texfile) { |
my $status_statement=''; |
my $status_statement=''; |