Diff for /loncom/interface/lonsyllabus.pm between versions 1.97 and 1.98

version 1.97, 2009/09/20 22:04:57 version 1.98, 2009/09/26 20:07:58
Line 182  ENDSCRIPT Line 182  ENDSCRIPT
             }              }
             if ($forcestudent or $target eq 'tex') { $allowed=0; }              if ($forcestudent or $target eq 'tex') { $allowed=0; }
         }          }
    #store what the user typed in
         if (($allowed) && ($env{'form.storesyl'})) {          if (($allowed) && ($env{'form.storesyl'})) {
             foreach my $syl_field (keys(%syllabusfields)) {              foreach my $syl_field (keys(%syllabusfields)) {
                 my $field=$env{'form.'.$syl_field};                  my $field=$env{'form.'.$syl_field};
Line 190  ENDSCRIPT Line 191  ENDSCRIPT
                 $field=~s/^\s+//s;                  $field=~s/^\s+//s;
                 $field=~s/\<br\s*\/*\>$//s;                  $field=~s/\<br\s*\/*\>$//s;
                 $field=&Apache::lonfeedback::clear_out_html($field,1);                  $field=&Apache::lonfeedback::clear_out_html($field,1);
    #here it will be stored
                 $syllabus{$syl_field}=$field;                  $syllabus{$syl_field}=$field;
                 if ($syl_field eq 'lll_includeurl') { # clean up included URLs                  if ($syl_field eq 'lll_includeurl') { # clean up included URLs
                     my $field='';                      my $field='';
Line 420  ENDSCRIPT Line 422  ENDSCRIPT
                     }                      }
                     $message=&Apache::lontexconvert::msgtexconverted($message);                      $message=&Apache::lontexconvert::msgtexconverted($message);
                     if ($target ne 'tex') {                      if ($target ne 'tex') {
    #output of syllabusfields will be generated here. 
                         &Apache::lontemplate::print_template($r, $syllabusfields{$field}, $message,$allowed,'LC_Box');                          &Apache::lontemplate::print_template($r, $syllabusfields{$field}, $message,$allowed,'LC_Box');
                     } else {                      } else {
                         $r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'.                          $r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'.

Removed from v.1.97  
changed lines
  Added in v.1.98


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>