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

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 02 May 2005 22:59:12 -0000


albertel		Mon May  2 18:59:12 2005 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  - xhtml
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.77 loncom/interface/printout.pl:1.78
--- loncom/interface/printout.pl:1.77	Mon May  2 17:57:44 2005
+++ loncom/interface/printout.pl	Mon May  2 18:59:11 2005
@@ -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.78 2005/05/02 22:59:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -97,11 +97,11 @@
 #   Debugging:  Dump the environment for debugging.
 #
 sub dumpenv  {
-    print "<br>-------------------<br>";
+    print "<p>-------------------</p>";
     foreach my $key (sort (keys %env)) {
-	print "<br>$key -> $env{$key}";
+	print "<br />$key -> $env{$key}";
     }
-    print "<br>-------------------<br>";
+    print "<p>-------------------</p>";
 }
 
 #
@@ -148,7 +148,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 />";
 	    
 	    my $subject  = "Print failed for $user".'@'.$domain;
 	    my $message .= "Print failed to render LaTeX for $user".'@'."$domain\n";
@@ -382,7 +382,7 @@
 	  }
 	  print "</pre>\n";
           if ($advanced_role) {  
-	      print "<br> Advanced role <br>";
+	      print "<p> Advanced role </p>";
               print "<b><big>The link to ";
               $logfilename=~s/\/home\/httpd//;
 	      print "<a href=\"$logfilename\">Your log file </a></big></b>";