loncom/interface/lonsimplepage.pm - diff

Return to lonsimplepage.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;