loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.127, 2006/05/01 19:28:21	version 1.128, 2006/05/12 16:45:41
Line 178 sub get_recent {	Line 178 sub get_recent {
sub textbox {	sub textbox {
my ($name,$value,$size,$special) = @_;	my ($name,$value,$size,$special) = @_;
$size = 40 if (! defined($size));	$size = 40 if (! defined($size));
	$value = &HTML::Entities::encode($value,'<>&"');
my $Str = '<input type="text" name="'.$name.'" size="'.$size.'" '.	my $Str = '<input type="text" name="'.$name.'" size="'.$size.'" '.
'value="'.$value.'" '.$special.' />';	'value="'.$value.'" '.$special.' />';
return $Str;	return $Str;