version 1.157, 2013/04/30 03:03:34
|
version 1.157.2.3, 2019/02/03 22:02:21
|
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" '; |
Line 1029 sub display_latex_exam {
|
Line 1030 sub display_latex_exam {
|
. '} \hspace*{\fill} \\\\'; |
. '} \hspace*{\fill} \\\\'; |
} |
} |
else { |
else { |
$result .= '\textbf{' . $Apache::lonxml::counter . '}.'; |
$result .= '\textbf{' . $Apache::lonxml::counter . '}.'. |
|
'\hspace*{2 mm}'; |
} |
} |
|
|
# Now output the bubbles themselves: |
# Now output the bubbles themselves: |
Line 1046 sub display_latex_exam {
|
Line 1048 sub display_latex_exam {
|
} |
} |
my $preindent; |
my $preindent; |
if ($bubble_number > 0) { |
if ($bubble_number > 0) { |
$preindent = '\hspace*{3 mm}'; |
my $offset = 5; |
|
if ($Apache::lonxml::counter) { |
|
if ($identifier) { |
|
$offset += 2 * (length($identifier)-1); |
|
} else { |
|
$offset += 2 * (length($Apache::lonxml::counter)-1); |
|
} |
|
} |
|
$preindent = '\hspace*{'.$offset.' mm}'; |
} |
} |
my $foiltext = $Apache::response::foilgroup{$name . '.text'}; |
my $foiltext = $Apache::response::foilgroup{$name . '.text'}; |
$foiltext =~ s/\\noindent//; # forgive me for I have sinned.. |
$foiltext =~ s/\\noindent//; # forgive me for I have sinned.. |