version 1.46, 2006/07/20 15:03:01
|
version 1.47, 2006/08/16 19:40:46
|
Line 38 use Apache::lonlocal;
|
Line 38 use Apache::lonlocal;
|
use Apache::lonprintout; |
use Apache::lonprintout; |
use Apache::lonxml; |
use Apache::lonxml; |
use Apache::longroup; |
use Apache::longroup; |
|
use HTML::Entities(); |
use LONCAPA; |
use LONCAPA; |
|
|
sub handler { |
sub handler { |
Line 285 sub handler {
|
Line 286 sub handler {
|
if ($env{'form.grade_target'} ne 'tex') { |
if ($env{'form.grade_target'} ne 'tex') { |
$r->print( |
$r->print( |
'<br />Title<br /><textarea cols="80" rows="2" name="'.$_.'">'. |
'<br />Title<br /><textarea cols="80" rows="2" name="'.$_.'">'. |
$syllabus{$_}. |
&HTML::Entities::encode($syllabus{$_},'"&<>'). |
'</textarea><input type="submit" name="storesyl" value="Store" />'); |
'</textarea><input type="submit" name="storesyl" value="Store" />'); |
} else { |
} else { |
my $safeinit; |
my $safeinit; |
Line 311 sub handler {
|
Line 312 sub handler {
|
if ($allowed) { |
if ($allowed) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('<br /><textarea cols="80" rows="24" name="'.$_.'" id="'.$_.'">'. |
$r->print('<br /><textarea cols="80" rows="24" name="'.$_.'" id="'.$_.'">'. |
$syllabus{$_}. |
&HTML::Entities::encode($syllabus{$_},'"&<>'). |
'</textarea><input type="submit" name="storesyl" value="Store" />'); |
'</textarea><input type="submit" name="storesyl" value="Store" />'); |
} else { |
} else { |
my $safeinit; |
my $safeinit; |