loncom/interface/lonsyllabus.pm - diff

Return to lonsyllabus.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2003/02/10 15:19:43	version 1.11, 2003/02/10 16:22:28
Line 33 use Apache::Constants qw(:common);	Line 33 use Apache::Constants qw(:common);
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonnet;	use Apache::lonnet;
use Apache::lontexconvert;	use Apache::lontexconvert;
	use Apache::lonfeedback;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 107 ENDDOCUMENT	Line 108 ENDDOCUMENT
foreach (keys %syllabusfields) {	foreach (keys %syllabusfields) {
my $field=$ENV{'form.'.$_};	my $field=$ENV{'form.'.$_};
$field=~s/\s+$//s;	$field=~s/\s+$//s;
$field=~s/\</\&lt\;/g;	$field=&Apache::lonfeedback::clear_out_html($field,1);
$field=~s/\>/\&gt\;/g;
$syllabus{$_}=$field;	$syllabus{$_}=$field;
if ($_ eq 'lll_includeurl') { # clean up included URLs	if ($_ eq 'lll_includeurl') { # clean up included URLs
my $field='';	my $field='';