version 1.102, 2013/03/11 02:04:36
|
version 1.103, 2013/09/17 15:04:30
|
Line 33 use Apache::Constants qw(:common);
|
Line 33 use Apache::Constants qw(:common);
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lontemplate; |
use Apache::lontemplate; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lontexconvert; |
use Apache::lonhtmlgateway; |
use Apache::lonfeedback; |
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonprintout; |
use Apache::lonprintout; |
use Apache::lonxml; |
use Apache::lonxml; |
Line 259 sub handler {
|
Line 258 sub handler {
|
foreach my $syl_field (keys(%syllabusfields)) { |
foreach my $syl_field (keys(%syllabusfields)) { |
my $field=$env{'form.'.$syl_field}; |
my $field=$env{'form.'.$syl_field}; |
chomp($field); |
chomp($field); |
$field=~s/\s+$//s; |
my $gateway = Apache::lonhtmlgateway->new(); |
$field=~s/^\s+//s; |
$field = $gateway->process_incoming_html($field,1); |
$field=~s/\<br\s*\/*\>$//s; |
|
$field=&Apache::lonfeedback::clear_out_html($field,1); |
|
$syllabus{$syl_field}=$field; |
$syllabus{$syl_field}=$field; |
} |
} |
$syllabus{'uploaded.lastmodified'}=time; |
$syllabus{'uploaded.lastmodified'}=time; |