[LON-CAPA-cvs] cvs: loncom /interface lonsyllabus.pm

[www]

www		Tue Jun  1 20:42:15 2004 EDT

  Modified files:              
    /loncom/interface	lonsyllabus.pm 
  Log:
  HTMLArea fields do show up, but
  * are too small (just one line)
  * generates <br />s that fill up each field
  * HTML gets deleted again by clear_out_html
  
  This and the feedback screen are probably enough to play with for now. Both
  do not work correctly.
  
  
Index: loncom/interface/lonsyllabus.pm
diff -u loncom/interface/lonsyllabus.pm:1.31 loncom/interface/lonsyllabus.pm:1.32
--- loncom/interface/lonsyllabus.pm:1.31	Mon May 10 10:12:14 2004
+++ loncom/interface/lonsyllabus.pm	Tue Jun  1 20:42:15 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Syllabus
 #
-# $Id: lonsyllabus.pm,v 1.31 2004/05/10 14:12:14 sakharuk Exp $
+# $Id: lonsyllabus.pm,v 1.32 2004/06/02 00:42:15 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -36,6 +36,7 @@
 use Apache::lonfeedback;
 use Apache::lonannounce;
 use Apache::lonlocal;
+use Apache::lonhtmlcommon;
 
 sub handler {
     my $r = shift;
@@ -98,7 +99,8 @@
 # ------------------------------------- There is such a course, get environment
     my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
     if ($target ne 'tex') {
-	$r->print('</head>'.&Apache::loncommon::bodytag
+	$r->print(&Apache::lonhtmlcommon::htmlareaheaders().
+		  '</head>'.&Apache::loncommon::bodytag
             ("Syllabus",$forcestudent,$addentries,'',$cdom,$ENV{'form.register'}));
 	$r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.
                  $Apache::lonnet::domaindescription{$cdom}.'</h3>');
@@ -239,7 +241,7 @@
 		     '<input type="hidden" name="forceedit" value="edit" />');
        }
        foreach (sort keys %syllabusfields) {
-          if (($syllabus{$_}) || ($allowed)) {
+          if (($syllabus{$_}=~/\w/) || ($allowed)) {
               my $message=$syllabus{$_};
               if ($_ eq 'lll_includeurl') { # this is the "included" field
 		  my $urls=$message;
@@ -287,7 +289,8 @@
 	  }
        }
        if ($allowed) {
-	   $r->print('</form>');
+	   $r->print('</form>'.
+		     &Apache::lonhtmlcommon::htmlareaactive());
        }
        if ($target ne 'tex') {$r->print('</p>');} else {$r->print('\\\\');}
     } else {