loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.139, 2011/11/24 13:28:01	version 1.140, 2012/02/13 11:23:11
Line 952 sub checked_arg {	Line 952 sub checked_arg {
}	}

sub text_arg {	sub text_arg {
my ($description,$name,$token,$size) = @_;	my ($description,$name,$token,$size, $class) = @_;
my $result;	my $result;
if (!defined $size) { $size=20; }	if (!defined $size) { $size=20; }
my $arg=$token->[2]{$name};	my $arg=$token->[2]{$name};
$result=&mt($description).' <input name="'.&html_element_name($name).	$result=&mt($description).' <input name="'.&html_element_name($name).
'" type="text" value="'.$arg.'" size="'.$size.'" '.	'" type="text" value="'.$arg.'" size="'.$size.'" ';
&element_change_detection().'/>';	if (defined $class) {
	$result .= 'class="' . $class . '" ';
	}
	$result .= &element_change_detection().'/>';
return '<span class="LC_nobreak">'.$result.'</span>';	return '<span class="LC_nobreak">'.$result.'</span>';
}	}