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

www lon-capa-cvs@mail.lon-capa.org
Sat, 01 Nov 2003 17:09:52 -0000


www		Sat Nov  1 12:09:52 2003 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  Take care of multi-line titles, etc.
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.140 loncom/publisher/lonpublisher.pm:1.141
--- loncom/publisher/lonpublisher.pm:1.140	Tue Oct 21 16:18:45 2003
+++ loncom/publisher/lonpublisher.pm	Sat Nov  1 12:09:52 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.140 2003/10/21 20:18:45 albertel Exp $
+# $Id: lonpublisher.pm,v 1.141 2003/11/01 17:09:52 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -329,6 +329,9 @@
 #########################################
 sub textfield {
     my ($title,$name,$value)=@_;
+    $value=~s/^\s+//gs;
+    $value=~s/\s+$//gs;
+    $value=~s/\s+/ /gs;
     $title=&mt($title);
     my $uctitle=uc($title);
     return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".