[LON-CAPA-cvs] cvs: loncom /interface printout.pl

[albertel]

albertel		Tue Jul  5 09:31:29 2005 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  - <br> should be <br />
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.83 loncom/interface/printout.pl:1.84
--- loncom/interface/printout.pl:1.83	Tue Jul  5 06:23:35 2005
+++ loncom/interface/printout.pl	Tue Jul  5 09:31:27 2005
@@ -59,11 +59,11 @@
 #   Debugging:  Dump the environment for debugging.
 #
 sub dumpenv  {
-    print "<br>-------------------<br>";
+    print "<br />-------------------<br />";
     foreach my $key (sort (keys %env)) {
-	print "<br>$key -> $env{$key}";
+	print "<br />$key -> $env{$key}";
     }
-    print "<br>-------------------<br>";
+    print "<br />-------------------<br />";
 }
 
 #
@@ -113,7 +113,7 @@
 	
 	if (&is_student( $courseid, $coursedom)) {
 	    # build the subject and message body:
-	    # print "sending message to course coordinators.<br>";
+	    # print "sending message to course coordinators.<br />";
 
 	    # Todo: Convert badurl into a url from file path:
 
@@ -130,9 +130,9 @@
 	    }
 	    my (undef, %receivers) = &Apache::lonfeedback::decide_receiver(undef, 0,
 									  1,1,1);
-	    # print "<BR> sending...section:  $env{'request.course.sec'}";
+	    # print "<br /> sending...section:  $env{'request.course.sec'}";
 	    foreach my $dest (keys %receivers) {
-		# print "<BR> dest is $dest";
+		# print "<br /> dest is $dest";
 		my @destinfo = split(/:/,$dest);
 		my $user = $destinfo[0];
 		my $dom  = $destinfo[1];
@@ -341,7 +341,7 @@
 		  
 		  $badresource = substr($badtext, $whereitbegins+27, 
 					length($badtext) - $whereitbegins - 48);
-		  # print "<BR>failing resourcename: $badresource<BR>";
+		  # print "<br />failing resourcename: $badresource<br />";
 	      }
 	  }
 	  
@@ -350,7 +350,7 @@
 	      print "<h2>LaTeX could not successfully parse your tex file.</h2>";
 	      print "It probably has errors in it.<br />";
 	      print "With very high probability this error occured in ".$badtext."<br /><br />";
-	      print "Here are the error messages in the LaTeX log file</br><br /><pre>";
+	      print "Here are the error messages in the LaTeX log file<br /><pre>";
 	      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/^!/) {
@@ -364,7 +364,7 @@
 		  }  
 	      }
 	      print "</pre>\n";
-	      # print "<br> Advanced role <br>";
+	      # print "<br /> Advanced role <br />";
               print "<b><big>The link to ";
               $logfilename=~s/\/home\/httpd//;
 	      print "<a href=\"$logfilename\">Your log file </a></big></b>";
@@ -388,12 +388,12 @@
               #    $name_file     - is the name of the LaTeX file.
               #    $identifier    - is the unique LaTeX identifier.l
 
-	      print "<br>There are errors in $badtext";
-	      print "<br>These errors prevent this resource from printing correctly";
+	      print "<br />There are errors in $badtext";
+	      print "<br />These errors prevent this resource from printing correctly";
 	      my $tex_handle = IO::File->new($name_file);
 	      my @tex_contents = <$tex_handle>;
 	      &send_error_mail($identifier, $badresource, $body_log_file, \@tex_contents);
-	      print "<br>A message has been sent to the instructor describing this failure<br>"
+	      print "<br />A message has been sent to the instructor describing this failure<br />"
 	  }
 
       } elsif ($body_log_file=~m/<inserted text>/) {