--- loncom/interface/lonsyllabus.pm	2004/06/02 00:42:15	1.32
+++ loncom/interface/lonsyllabus.pm	2004/06/03 14:28:39	1.33
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Syllabus
 #
-# $Id: lonsyllabus.pm,v 1.32 2004/06/02 00:42:15 www Exp $
+# $Id: lonsyllabus.pm,v 1.33 2004/06/03 14:28:39 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -182,8 +182,11 @@ ENDDOCUMENT
        if (($allowed) && ($ENV{'form.storesyl'})) {
 	   foreach (keys %syllabusfields) {
                my $field=$ENV{'form.'.$_};
+	       chomp($field);
                $field=~s/\s+$//s;
-               $field=&Apache::lonfeedback::clear_out_html($field,1);
+	       $field=~s/^\s+//s;
+	       $field=~s/\<br\s*\/*\>$//s;
+	       $field=&Apache::lonfeedback::clear_out_html($field,1);
 	       $syllabus{$_}=$field;
                if ($_ eq 'lll_includeurl') { # clean up included URLs
                   my $field='';
@@ -240,6 +243,7 @@ ENDDOCUMENT
 	   $r->print('<form method="post">'.
 		     '<input type="hidden" name="forceedit" value="edit" />');
        }
+       my @htmlids=();
        foreach (sort keys %syllabusfields) {
           if (($syllabus{$_}=~/\w/) || ($allowed)) {
               my $message=$syllabus{$_};
@@ -280,17 +284,19 @@ ENDDOCUMENT
 		     $r->print('\\\\\textbf{'.$syllabusfields{$_}.'}\\\\'.
 			       &Apache::lonxml::xmlparse($r,'tex',$message).'\\\\');
 		 }
+		 push @htmlids,$_;
 	     }
               if ($allowed) {
-                 $r->print('<br /><textarea cols="80" rows="6" name="'.$_.'">'.
+                 $r->print(
+	   '<br /><textarea cols="80" rows="12" name="'.$_.'" id="'.$_.'">'.
 			   $syllabus{$_}.
-           '</textarea><input type="submit" name="storesyl" value="Store" />');
+           '</textarea> <input type="submit" name="storesyl" value="Store" />');
 	      }
 	  }
        }
        if ($allowed) {
 	   $r->print('</form>'.
-		     &Apache::lonhtmlcommon::htmlareaactive());
+		     &Apache::lonhtmlcommon::htmlareaselectactive(@htmlids));
        }
        if ($target ne 'tex') {$r->print('</p>');} else {$r->print('\\\\');}
     } else {