--- loncom/interface/printout.pl 2005/05/02 21:57:44 1.77
+++ loncom/interface/printout.pl 2005/05/03 22:22:47 1.80
@@ -1,7 +1,7 @@
#!/usr/bin/perl
# CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
#
-# $Id: printout.pl,v 1.77 2005/05/02 21:57:44 foxr Exp $
+# $Id: printout.pl,v 1.80 2005/05/03 22:22:47 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -32,7 +32,7 @@ use File::Path;
use IO::File;
use Image::Magick;
use Apache::lonhtmlcommon;
-use Apache::lonnet();
+use Apache::lonnet;
use Apache::loncommon;
use Apache::lonlocal;
use Apache::lonmsg;
@@ -97,11 +97,11 @@ sub is_student {
# Debugging: Dump the environment for debugging.
#
sub dumpenv {
- print "
-------------------
";
+ print "
-------------------
";
foreach my $key (sort (keys %env)) {
- print "
$key -> $env{$key}";
+ print "
$key -> $env{$key}";
}
- print "
-------------------
";
+ print "-------------------
";
}
#
@@ -148,7 +148,7 @@ sub send_error_mail {
if (&is_student( $courseid, $coursedom)) {
# build the subject and message body:
- print "sending message to course coordinators.
";
+ print "sending message to course coordinators.
";
my $subject = "Print failed for $user".'@'.$domain;
my $message .= "Print failed to render LaTeX for $user".'@'."$domain\n";
@@ -201,12 +201,12 @@ END
my $numberofcolumns = $env{'cgi.'.$identifier.'.numcol'};
my $paper = $env{'cgi.'.$identifier.'.paper'};
my $selectionmade = $env{'cgi.'.$identifier.'.selection'};
- my $tableofcontents = $env{'cgi.'.$identifier.'tableofcontents'};
- my $tableofindex = $env{'cgi.'.$identifier.'tableofindex'};
- my $advanced_role = $env{'cgi.'.$identifier.'role'};
- my $number_of_files = $env{'cgi.'.$identifier.'numberoffiles'}+1;
- my $student_names = $env{'cgi.'.$identifier.'studentnames'};
- my $backref = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'backref'});
+ my $tableofcontents = $env{'cgi.'.$identifier.'.tableofcontents'};
+ my $tableofindex = $env{'cgi.'.$identifier.'.tableofindex'};
+ my $advanced_role = $env{'cgi.'.$identifier.'.role'};
+ my $number_of_files = $env{'cgi.'.$identifier.'.numberoffiles'}+1;
+ my $student_names = $env{'cgi.'.$identifier.'.studentnames'};
+ my $backref = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'.backref'});
my $adv = $env{'request.role.adv'};
@@ -382,7 +382,7 @@ foreach $texfile (@texfile) {
}
print "\n";
if ($advanced_role) {
- print "
Advanced role
";
+ print " Advanced role
";
print "The link to ";
$logfilename=~s/\/home\/httpd//;
print "Your log file ";