loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.157.2.1, 2015/04/07 15:26:24	version 1.158, 2015/01/19 15:35:53
Line 80 sub start_radiobuttonresponse {	Line 80 sub start_radiobuttonresponse {
$result=&Apache::response::meta_package_write('radiobuttonresponse');	$result=&Apache::response::meta_package_write('radiobuttonresponse');
} elsif ($target eq 'edit' ) {	} elsif ($target eq 'edit' ) {
$result.=&Apache::edit::start_table($token)	$result.=&Apache::edit::start_table($token)
.'<tr><td>'.&Apache::lonxml::description($token)	.'<tr><td>'.&Apache::loncommon::insert_folding_button()
	.&Apache::lonxml::description($token)
.&Apache::loncommon::help_open_topic('Radio_Response_Problems')	.&Apache::loncommon::help_open_topic('Radio_Response_Problems')
.'</td>'	.'</td>'
.'<td><span class="LC_nobreak">'.&mt('Delete?').' '	.'<td><span class="LC_nobreak">'.&mt('Delete?').' '
Line 824 sub html_radiobutton {	Line 825 sub html_radiobutton {

my $result='<label>';	my $result='<label>';

$result .= '<input type="radio" '	$result .= '<input type="radio"
. 'onchange="javascript:setSubmittedPart(' . "'$part');\" "	onchange="javascript:setSubmittedPart(' . "'$part');\""
. 'name="HWVAL_' . $fieldname . '" '	. 'name="HWVAL_' . $fieldname . '"'
. 'value="'.$value.'"';	. "value='$value'";

if (defined($last_responses->{$name})) {	if (defined($last_responses->{$name})) {
$result .= ' checked="checked" ';	$result .= ' checked="checked" ';