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

albertel lon-capa-cvs@mail.lon-capa.org
Sat, 08 Nov 2003 11:13:50 -0000


albertel		Sat Nov  8 06:13:50 2003 EDT

  Modified files:              
    /loncom/publisher	lonupload.pm 
  Log:
  -more xhtmlize
  
  
Index: loncom/publisher/lonupload.pm
diff -u loncom/publisher/lonupload.pm:1.23 loncom/publisher/lonupload.pm:1.24
--- loncom/publisher/lonupload.pm:1.23	Sat Nov  8 06:11:01 2003
+++ loncom/publisher/lonupload.pm	Sat Nov  8 06:13:50 2003
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # Handler to upload files into construction space
 #
-# $Id: lonupload.pm,v 1.23 2003/11/08 11:11:01 albertel Exp $
+# $Id: lonupload.pm,v 1.24 2003/11/08 11:13:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -160,7 +160,7 @@
 			      '<font color="red">'.
 			      &mt('The extension on this file is reserved internally by LON-CAPA.').
 			      '</font>');
-		    $r->print('<p><font size=+2><a href="'.$path.'">'.
+		    $r->print('<br /><font size=+2><a href="'.$path.'">'.
 			      &mt('Back to Directory').'</a></font>');
 		} elsif ($fn=~/\.(\w+)$/ && 
 			 !defined(&Apache::loncommon::fileembstyle($1))) {
@@ -183,7 +183,7 @@
 		    $r->print(&mt('File copied.'));
 		    $r->print('<br /><font size="+2"><a href="'.$url.'">'.
 			      &mt('View file').'</a></font>');
-		    $r->print('<font size="+2"><a href="'.$path.'">'.
+		    $r->print('<br /><font size="+2"><a href="'.$path.'">'.
 			      &mt('Back to Directory').'</a></font><br />');
 		} else {
 		    $r->print('Failed to copy: '.$!);
@@ -194,12 +194,12 @@
 	} else {
 	    $r->print('<font size="+1" color="red">'.
 		      &mt('Please use browser "Back" button and pick a filename').
-		      '</font><br />>');
+		      '</font><br />');
 	}
     } else {
 	$r->print('<font size=+1 color=red>'.
 		  &mt('Please use browser "Back" button and pick a filename').
-		  '</font><p>');
+		  '</font><br />>');
     }
 }