version 1.52, 2004/02/24 23:20:08
|
version 1.58, 2004/05/12 18:44:50
|
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); } |
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=~/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\//) { |
$eps_f=~m/\/home\/httpd\/html\/res\/(.+)/; |
$eps_f=~m/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\/(.+)/; |
$eps_f = '/home/httpd/prtspool/'.$1; |
$eps_f = '/home/httpd/prtspool/'.$1; |
|
} elsif ($eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\//) { |
|
$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 116 END
|
Line 119 END
|
if ($adv) { |
if ($adv) { |
my $prettyname=$not_eps; |
my $prettyname=$not_eps; |
$prettyname=~s|/home/([^/]+)/public_html|/priv/$1|; |
$prettyname=~s|/home/([^/]+)/public_html|/priv/$1|; |
$prettyname=~s|/home/httpd/html/|/|; |
$prettyname=~s|$Apache::lonnet::perlvar{'lonDocRoot'}/|/|; |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Converting to EPS '.$prettyname); } |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Converting to EPS '.$prettyname); } |
$done_conversion{$not_eps}=1; |
$done_conversion{$not_eps}=1; |
$status = $image->Read($not_eps); |
$status = $image->Read($not_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); } |
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=''; |
my $link_text='download PDF'; |
my $link_text='download PDF'; |