loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.80, 2004/02/17 22:02:43	version 1.81, 2004/03/30 08:20:49
Line 475 sub textarea_sizes {	Line 475 sub textarea_sizes {

sub editline {	sub editline {
my ($tag,$data,$description,$size)=@_;	my ($tag,$data,$description,$size)=@_;
$data=&HTML::Entities::encode($data);	$data=&HTML::Entities::encode($data,'<>&"');
if ($description) { $description="<br />".$description."<br />"; }	if ($description) { $description="<br />".$description."<br />"; }
my $result = <<"END";	my $result = <<"END";
$description	$description
Line 496 sub editfield {	Line 496 sub editfield {
return $description."\n".'   <textarea rows="'.$rows.	return $description."\n".'   <textarea rows="'.$rows.
'" cols="'.$cols.'" name="homework_edit_'.	'" cols="'.$cols.'" name="homework_edit_'.
$Apache::lonxml::curdepth.'">'.	$Apache::lonxml::curdepth.'">'.
&HTML::Entities::encode($data).'</textarea>'."\n";	&HTML::Entities::encode($data,'<>&"').'</textarea>'."\n";
}	}

sub modifiedfield {	sub modifiedfield {