loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.157, 2013/04/30 03:03:34	version 1.157.2.2, 2016/09/14 18:18:51
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" ';