[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm

[albertel]

albertel		Fri Mar  7 12:55:05 2003 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  - XHTMLing
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.113 loncom/publisher/lonpublisher.pm:1.114
--- loncom/publisher/lonpublisher.pm:1.113	Fri Mar  7 12:52:37 2003
+++ loncom/publisher/lonpublisher.pm	Fri Mar  7 12:55:05 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.113 2003/03/07 17:52:37 albertel Exp $
+# $Id: lonpublisher.pm,v 1.114 2003/03/07 17:55:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -809,7 +809,7 @@
     my %allow=();
 
     unless ($logfile=Apache::File->new('>>'.$source.'.log')) {
-	return ('<font color=red>No write permission to user directory, FAIL</font>',1);
+	return ('<font color="red">No write permission to user directory, FAIL</font>',1);
     }
     print $logfile 
 "\n\n================= Publish ".localtime()." Phase One  ================\n";
@@ -823,7 +823,7 @@
 	    print $logfile "Copied original file to ".$copyfile."\n";
         } else {
 	    print $logfile "Unable to write backup ".$copyfile.':'.$!."\n";
-	    return ("<font color=red>Failed to write backup copy, $!,FAIL</font>",1);
+	    return ("<font color=\"red\">Failed to write backup copy, $!,FAIL</font>",1);
         }
 # ------------------------------------------------------------- IDs and indices
 	
@@ -1202,14 +1202,14 @@
 
     if ($target=~/\_\_\_/) {
 	$r->print(
- '<font color=red>Unsupported character combination "<tt>___</tt>" in filename, FAIL</font>');
+ '<font color="red">Unsupported character combination "<tt>___</tt>" in filename, FAIL</font>');
         return 0;
     }
     $distarget=~s/\/+/\//g;
     my $logfile;
     unless ($logfile=Apache::File->new('>>'.$source.'.log')) {
 	$r->print(
-        '<font color=red>No write permission to user directory, FAIL</font>');
+        '<font color="red">No write permission to user directory, FAIL</font>');
         return 0;
     }
     print $logfile 
@@ -1250,7 +1250,7 @@
         my $mfh;
         unless ($mfh=Apache::File->new('>'.$source.'.meta')) {
             return 
-                '<font color=red>Could not write metadata, FAIL</font>';
+                '<font color="red">Could not write metadata, FAIL</font>';
         }
         foreach (sort keys %metadatafields) {
             unless ($_=~/\./) {
@@ -1302,7 +1302,7 @@
         my $srcd=$1;
         unless ($srcd=~/^\/home\/httpd\/html\/res/) {
             print $logfile "\nPANIC: Target dir is ".$srcd;
-            return "<font color=red>Invalid target directory, FAIL</font>";
+            return "<font color=\"red\">Invalid target directory, FAIL</font>";
         }
         opendir(DIR,$srcd);
         while ($filename=readdir(DIR)) {
@@ -1327,7 +1327,7 @@
             $r->print('<p>Copied old target file');
         } else {
 	    print $logfile "Unable to write ".$copyfile.':'.$!."\n";
-            return "<font color=red>Failed to copy old target, $!, FAIL</font>";
+            return "<font color=\"red\">Failed to copy old target, $!, FAIL</font>";
         }
         
 # --------------------------------------------------------------- Copy Metadata
@@ -1341,7 +1341,7 @@
 	    print $logfile "Unable to write metadata ".$copyfile.':'.$!."\n";
             if (-e $target.'.meta') {
                 return 
-                    "<font color=red>Failed to write old metadata copy, $!, FAIL</font>";
+                    "<font color=\"red\">Failed to write old metadata copy, $!, FAIL</font>";
 	    }
         }
         
@@ -1372,7 +1372,7 @@
         $r->print('<p>Copied source file');
     } else {
         print $logfile "\nUnable to write ".$copyfile.':'.$!."\n";
-        return "<font color=red>Failed to copy source, $!, FAIL</font>";
+        return "<font color=\"red\">Failed to copy source, $!, FAIL</font>";
     }
     
 # --------------------------------------------------------------- Copy Metadata
@@ -1385,7 +1385,7 @@
     } else {
         print $logfile "\nUnable to write metadata ".$copyfile.':'.$!."\n";
         return 
-            "<font color=red>Failed to write metadata copy, $!, FAIL</font>";
+            "<font color=\"red\">Failed to write metadata copy, $!, FAIL</font>";
     }
     $r->rflush;
 # --------------------------------------------------- Send update notifications