version 1.46, 2004/02/11 00:19:49
|
version 1.48, 2004/02/16 22:32:59
|
Line 32 use LONCAPA::loncgi();
|
Line 32 use LONCAPA::loncgi();
|
use File::Path; |
use File::Path; |
use IO::File; |
use IO::File; |
use Image::Magick; |
use Image::Magick; |
|
use Apache::lonhtmlcommon; |
|
|
|
|
my %origENV=%ENV; |
my %origENV=%ENV; |
if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { |
if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { |
Line 62 END
|
Line 64 END
|
my $back_ref = $ENV{'cgi.'.$identifier.'backref'}; |
my $back_ref = $ENV{'cgi.'.$identifier.'backref'}; |
my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1; |
my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1; |
my $student_names = $ENV{'cgi.'.$identifier.'studentnames'}; |
my $student_names = $ENV{'cgi.'.$identifier.'studentnames'}; |
|
my $backref = $ENV{'cgi.'.$identifier.'backref'}; |
|
|
my @names_pack=(); |
my @names_pack=(); |
if ($student_names=~/_END_/) { |
if ($student_names=~/_END_/) { |
Line 81 END
|
Line 84 END
|
my @content_of_file = <$temporary_file>; |
my @content_of_file = <$temporary_file>; |
close $temporary_file; |
close $temporary_file; |
my $noteps; |
my $noteps; |
&Create_StatWin ('Starting eps pictures creation', 'Pictires Status window'); |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Pictures CreationPrint Status','Pictires Status window',$#content_of_file); |
foreach $not_eps (@content_of_file) { |
foreach $not_eps (@content_of_file) { |
if ($not_eps ne '') { |
if ($not_eps ne '') { |
my $status_statement='EPS picture for '.$not_eps; |
my $status_statement='EPS picture for '.$not_eps; |
&Update_StaWin ($status_statement); |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'last PDF file '.$not_eps); |
$not_eps=~s|\/\.\/|\/|g; |
$not_eps=~s|\/\.\/|\/|g; |
my $eps_f = $not_eps; |
my $eps_f = $not_eps; |
$eps_f =~ s/\.[^.]*$/\.eps/i; |
$eps_f =~ s/\.[^.]*$/\.eps/i; |
Line 122 END
|
Line 125 END
|
} |
} |
} |
} |
} |
} |
&Close_StatWin(); |
&Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); |
} |
} |
#print "$texfile\n"; #name of the tex file for debugging only |
#print "$texfile\n"; #name of the tex file for debugging only |
my @texfile=($texfile); |
my @texfile=($texfile); |
Line 134 END
|
Line 137 END
|
} |
} |
} |
} |
my $ind=-1; |
my $ind=-1; |
&Create_StatWin ('Starting PDF production for students', 'PDF Status window'); |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files); |
foreach $texfile (@texfile) { |
foreach $texfile (@texfile) { |
my $final_statement="<b>Link to your PDF document:</b> "; |
my $final_statement="<a href=\"$backref\"><b>Back to where you started</b></a><br /><br /><b>Link to your PDF document:</b> "; |
my $status_statement='PDF document for '; |
my $status_statement='PDF document for '; |
if ($number_of_files>1) { |
if ($number_of_files>1) { |
$ind++; |
$ind++; |
my @stud_info=split(/_END_/,$names_pack[$ind]); |
my @stud_info=split(/_END_/,$names_pack[$ind]); |
my @tempo_array=split(/:/,$stud_info[0]); |
my @tempo_array=split(/:/,$stud_info[0]); |
$final_statement='Link to PDF document for <b>'.$tempo_array[3].'</b> '; |
my $name; |
$status_statement.=$tempo_array[3]; |
if ($tempo_array[3]) { |
|
$name=$tempo_array[3]; |
|
} else { |
|
$name=$tempo_array[0].'@'.$tempo_array[1]; |
|
} |
|
$final_statement='Link to PDF document for <b>'.$name.'</b> '; |
|
$status_statement.=$name; |
if ($#stud_info>0) { |
if ($#stud_info>0) { |
@tempo_array=split(/:/,$stud_info[-1]); |
@tempo_array=split(/:/,$stud_info[-1]); |
$final_statement.='- <b>'.$tempo_array[3].':</b> '; |
if ($tempo_array[3]) { |
$status_statement.=' - '.$tempo_array[3]; |
$name=$tempo_array[3]; |
|
} else { |
|
$name=$tempo_array[0].'@'.$tempo_array[1]; |
|
} |
|
$final_statement.='- <b>'.$name.':</b> '; |
|
$status_statement.=' - '.$name; |
} |
} |
} |
} |
&Update_StaWin ($status_statement); |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'last PDF file '.$status_statement); |
if (-e $texfile) { |
if (-e $texfile) { |
$texfile =~ m/^(.*)\/([^\/]+)$/; |
$texfile =~ m/^(.*)\/([^\/]+)$/; |
my $name_file = $2; |
my $name_file = $2; |
Line 338 if ($number_of_files>1) {
|
Line 352 if ($number_of_files>1) {
|
$zipfile=~s/\/home\/httpd//; |
$zipfile=~s/\/home\/httpd//; |
print "<br /> <a href=\"$zipfile\">Your ZIP file is here</a>"; |
print "<br /> <a href=\"$zipfile\">Your ZIP file is here</a>"; |
} |
} |
&Close_StatWin(); |
&Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); |
|
|
|
|
sub Create_StatWin { |
|
my ($title, $heading)=@_; |
|
print('<script>'. |
|
"popwin=window.open('','popwin','width=400,height=100');". |
|
"popwin.document.writeln('<html><head><title>$title</title></head>". |
|
"<body bgcolor=\"#88DDFF\">". |
|
"<h4>$heading</h4>". |
|
"<form name=popremain>". |
|
'<input type="text" size="55" name="remaining" value="'. |
|
'Starting'.'"></form>'. |
|
"</body></html>');". |
|
"popwin.document.close();". |
|
"</script>"); |
|
} |
|
|
|
sub Update_StaWin { |
|
my ($info)=@_; |
|
print('<script>popwin.document.popremain.remaining.value="'. |
|
$info.'";'.'</script>'); |
|
} |
|
|
|
sub Close_StatWin { |
|
print('<script>popwin.window.close()</script>'."\n"); |
|
|
|
} |
|
|
|
|
|
|
|