loncom/interface/lonbulletin.pm - diff

Return to lonbulletin.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.38, 2006/07/20 22:50:50	version 1.39, 2006/08/16 19:40:46
Line 36 use Apache::lontexconvert;	Line 36 use Apache::lontexconvert;
use Apache::lonfeedback;	use Apache::lonfeedback;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon;
	use HTML::Entities();
use LONCAPA;	use LONCAPA;

sub handler {	sub handler {
Line 264 sub handler {	Line 265 sub handler {
}	}
if ($allowed) {	if ($allowed) {
$r->print('<br /><textarea cols="80" rows="10" name="'.$_.'">'.	$r->print('<br /><textarea cols="80" rows="10" name="'.$_.'">'.
$syllabus{$_}.	&HTML::Enitites::encode($syllabus{$_},'&"<>').
'</textarea><input type="submit" name="storesyl" value="'.&mt('Store').'" />');	'</textarea><input type="submit" name="storesyl" value="'.&mt('Store').'" />');
}	}
} else {	} else {
Line 276 sub handler {	Line 277 sub handler {
if ($allowed) {	if ($allowed) {
$r->print(	$r->print(
'<br />'.&mt('Topic').'<br /><textarea cols="80" rows="2" name="'.$_.'">'.	'<br />'.&mt('Topic').'<br /><textarea cols="80" rows="2" name="'.$_.'">'.
$syllabus{$_}.	&HTML::Enitites::encode($syllabus{$_},'&"<>').
'</textarea><input type="submit" name="storesyl" value="'.&mt('Store').'" />');	'</textarea><input type="submit" name="storesyl" value="'.&mt('Store').'" />');
}	}
}	}