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 { |