loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.138, 2011/11/22 02:13:37	version 1.140, 2012/02/13 11:23:11
Line 401 sub insert_functionplotresponse {	Line 401 sub insert_functionplotresponse {
return '	return '
<functionplotresponse>	<functionplotresponse>
<functionplotelements>	<functionplotelements>
<spline />
</functionplotelements>	</functionplotelements>
<functionplotruleset>	<functionplotruleset>
<functionplotrule />
</functionplotruleset>	</functionplotruleset>
</functionplotresponse>';	</functionplotresponse>';
}	}
Line 954 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>';
}	}