version 1.74, 2005/03/15 11:19:28
|
version 1.75, 2005/03/23 22:37:46
|
Line 65 END
|
Line 65 END
|
my $selectionmade = $ENV{'cgi.'.$identifier.'.selection'}; |
my $selectionmade = $ENV{'cgi.'.$identifier.'.selection'}; |
my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'}; |
my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'}; |
my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'}; |
my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'}; |
my $advans_role = $ENV{'cgi.'.$identifier.'role'}; |
my $advanced_role = $ENV{'cgi.'.$identifier.'role'}; |
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 = &Apache::lonnet::unescape($ENV{'cgi.'.$identifier.'backref'}); |
my $backref = &Apache::lonnet::unescape($ENV{'cgi.'.$identifier.'backref'}); |
Line 245 foreach $texfile (@texfile) {
|
Line 245 foreach $texfile (@texfile) {
|
} |
} |
} |
} |
print "</pre>\n"; |
print "</pre>\n"; |
if ($advans_role) { |
if ($advanced_role) { |
print "<b><big>The link to "; |
print "<b><big>The link to "; |
$logfilename=~s/\/home\/httpd//; |
$logfilename=~s/\/home\/httpd//; |
print "<a href=\"$logfilename\">Your log file </a></big></b>"; |
print "<a href=\"$logfilename\">Your log file </a></big></b>"; |
Line 324 foreach $texfile (@texfile) {
|
Line 324 foreach $texfile (@texfile) {
|
# unlink @garb; |
# unlink @garb; |
unlink $duefile; |
unlink $duefile; |
print "<a href=\"/prtspool/$pdf_file\">Your PDF document</a>"; |
print "<a href=\"/prtspool/$pdf_file\">Your PDF document</a>"; |
if ($advans_role) { |
} |
print "<br /><br />"; |
if ($advanced_role) { |
print "<b><big>The link to "; |
print "<br /><br />"; |
$logfilename=~s/\/home\/httpd//; |
print "<b><big>The link to "; |
print "<a href=\"$logfilename\">Your log file </a></big></b>"; |
$logfilename=~s/\/home\/httpd//; |
print "\n"; |
print "<a href=\"$logfilename\">Your log file </a></big></b>"; |
#link tooriginal LaTeX file (included according Michael Hamlin desire) |
print "\n"; |
my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n"; |
#link tooriginal LaTeX file (included according Michael Hamlin desire) |
my @tex_content_of_file = <$tex_temporary_file>; |
my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n"; |
close $tex_temporary_file; |
my @tex_content_of_file = <$tex_temporary_file>; |
my $body_tex_file = join(' ',@tex_content_of_file); |
close $tex_temporary_file; |
$texfile =~ s/\.tex$/aaaaa\.html/; |
my $body_tex_file = join(' ',@tex_content_of_file); |
$tex_temporary_file = IO::File->new('>'.$texfile); |
$texfile =~ s/\.tex$/aaaaa\.html/; |
print $tex_temporary_file '<html><head><title>LOGFILE</title></head><body><pre>'.$body_tex_file.'</pre></body></html>'."\n"; |
$tex_temporary_file = IO::File->new('>'.$texfile); |
print "<br /><br />"; |
print $tex_temporary_file '<html><head><title>LOGFILE</title></head><body><pre>'.$body_tex_file.'</pre></body></html>'."\n"; |
print "<b><big>The link to "; |
print "<br /><br />"; |
$texfile=~s/\/home\/httpd//; |
print "<b><big>The link to "; |
print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>"; |
$texfile=~s/\/home\/httpd//; |
print "\n"; |
print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>"; |
} |
print "\n"; |
} |
} |
} else { |
} else { |
#LaTeX successfully parsed tex file |
#LaTeX successfully parsed tex file |