version 1.53, 2006/08/01 13:55:07
|
version 1.54, 2006/08/16 19:40:46
|
Line 38 use Apache::lonannounce;
|
Line 38 use Apache::lonannounce;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::lonspeller(); |
use Apache::lonspeller(); |
|
use HTML::Entities(); |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 321 sub handler {
|
Line 322 sub handler {
|
if ($allowed) { |
if ($allowed) { |
$r->print( |
$r->print( |
'<br /><textarea cols="80" rows="12" name="'.$_.'" id="'.$_.'">'. |
'<br /><textarea cols="80" rows="12" name="'.$_.'" id="'.$_.'">'. |
$syllabus{$_}. |
&HTML::Entities::encode($syllabus{$_},'"&<>'). |
'</textarea> <input type="submit" name="storesyl" value="Store" />'); |
'</textarea> <input type="submit" name="storesyl" value="Store" />'); |
} |
} |
} |
} |