--- loncom/interface/printout.pl 2005/06/04 20:48:33 1.82
+++ loncom/interface/printout.pl 2005/07/05 13:31:27 1.84
@@ -59,11 +59,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 "
-------------------
";
}
#
@@ -113,7 +113,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.
";
# Todo: Convert badurl into a url from file path:
@@ -130,9 +130,9 @@ sub send_error_mail {
}
my (undef, %receivers) = &Apache::lonfeedback::decide_receiver(undef, 0,
1,1,1);
- # print "
sending...section: $env{'request.course.sec'}";
+ # print "
sending...section: $env{'request.course.sec'}";
foreach my $dest (keys %receivers) {
- # print "
dest is $dest";
+ # print "
dest is $dest";
my @destinfo = split(/:/,$dest);
my $user = $destinfo[0];
my $dom = $destinfo[1];
@@ -330,39 +330,41 @@ foreach $texfile (@texfile) {
$temporary_file = IO::File->new('>'.$logfilename);
print $temporary_file '
'.$body_log_file.''."\n"; if ($body_log_file=~m/!\s+Emergency stop/) { - #LaTeX failed to parse tex file - print "
"; - my $sygnal = 0; - for (my $i=0;$i<=$#content_of_file;$i++) { - if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) { - $sygnal = 1; - } - if ($content_of_file[$i]=~m/Here is how much of/) { - $sygnal = 0; - } - if ($sygnal) { - print "$content_of_file[$i]"; - } - } - print "\n"; + if ($advanced_role) { - # print "
"; + my $sygnal = 0; + for (my $i=0;$i<=$#content_of_file;$i++) { + if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) { + $sygnal = 1; + } + if ($content_of_file[$i]=~m/Here is how much of/) { + $sygnal = 0; + } + if ($sygnal) { + print "$content_of_file[$i]"; + } + } + print "\n"; + # print "