version 1.92, 2005/10/31 21:48:07
|
version 1.95, 2006/02/04 19:01:20
|
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 266 END
|
Line 272 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; |
Line 332 foreach $texfile (@texfile) {
|
Line 337 foreach $texfile (@texfile) {
|
\%prog_state,$dvi_file); |
\%prog_state,$dvi_file); |
if ($tableofcontents eq 'yes') { |
if ($tableofcontents eq 'yes') { |
&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", |
"for $status_statement now LaTeXing file for table of contents", |
"for $status_statement First LaTeX of file for table of contents", |
|
\%prog_state,$dvi_file); |
|
&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", |
|
"for $status_statement Second LaTeX of file for table of contents", |
\%prog_state,$dvi_file); |
\%prog_state,$dvi_file); |
} #to create table of contents |
} #to create table of contents |
my $idxname=$name_file; |
my $idxname=$name_file; |