version 1.92, 2005/10/31 21:48:07
|
version 1.94.2.1, 2006/04/24 21:31:03
|
Line 25
|
Line 25
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
|
BEGIN { |
|
eval "use Apache2::compat();"; |
|
}; |
use lib '/home/httpd/lib/perl'; |
use lib '/home/httpd/lib/perl'; |
use LONCAPA::loncgi; |
use LONCAPA::loncgi; |
use File::Path; |
use File::Path; |
Line 183 END
|
Line 186 END
|
@names_pack=split(/_ENDPERSON_/,$student_names); |
@names_pack=split(/_ENDPERSON_/,$student_names); |
} |
} |
|
|
|
print "<a href=\"$backref\"><b>Return</b></a> to last resource.<br /><br />"; |
|
|
my $figfile = $texfile; |
my $figfile = $texfile; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
my $duefile = $texfile; |
my $duefile = $texfile; |
Line 198 END
|
Line 203 END
|
my $noteps; |
my $noteps; |
my %prog_state; |
my %prog_state; |
if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','80'); } |
if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','80'); } |
|
print('<br />'); |
foreach my $not_eps (@content_of_file) { |
foreach my $not_eps (@content_of_file) { |
chomp($not_eps); |
chomp($not_eps); |
if ($not_eps ne '') { |
if ($not_eps ne '') { |
Line 236 END
|
Line 242 END
|
$done_conversion{$not_eps}=1; |
$done_conversion{$not_eps}=1; |
# print "Converting $not_eps -> $eps_f"; # Debugging |
# print "Converting $not_eps -> $eps_f"; # Debugging |
system("convert $not_eps $eps_f"); |
system("convert $not_eps $eps_f"); |
#check is eps exist in prtspool |
# check is eps exist in prtspool |
if(not -e $eps_f) { |
if (not -e $eps_f) { |
|
# converting an animated gif creates either: |
|
# anim.gif.eps.0 |
|
# or |
|
# anim.gif-0.eps |
for (my $i=0;$i<10000;$i++) { |
for (my $i=0;$i<10000;$i++) { |
if (-e $eps_f.'.'.$i) { |
if (-e $eps_f.'.'.$i) { |
rename $eps_f.'.'.$i, $eps_f; |
rename($eps_f.'.'.$i, $eps_f); |
|
last; |
|
} |
|
my $anim_eps = $eps_f; |
|
$anim_eps =~ s/(\.[^.]*)\.eps$/$1-$i\.eps/i; |
|
if (-e $anim_eps) { |
|
rename($anim_eps, $eps_f); |
last; |
last; |
} |
} |
} |
} |
} |
} |
|
# imagemagick 6.2.0-6.2.7 fails to properly handle |
|
# convert anim.gif anim.gif.eps |
|
# it creates anim.eps instead. |
|
if (not -e $eps_f) { |
|
my $eps_f2 = $eps_f; |
|
$eps_f2 =~ s/\.[^.]*\.eps$/\.eps/i; |
|
if(-e $eps_f2) { |
|
rename($eps_f2,$eps_f); |
|
} |
|
} |
|
|
} |
} |
} |
} |
if ($advanced_role) { |
if ($advanced_role) { |
Line 266 END
|
Line 293 END
|
|
|
my $ind=-1; |
my $ind=-1; |
my %prog_state; |
my %prog_state; |
print "<a href=\"$backref\"><b>Return</b></a> to last resource.<br /><br />"; |
|
if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline','80'); } |
if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline','80'); } |
print "<br />"; |
print "<br />"; |
my $num_files = @texfile; |
my $num_files = @texfile; |