version 1.156, 2013/04/25 17:58:32
|
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 376 sub get_last_survey_response {
|
Line 377 sub get_last_survey_response {
|
} |
} |
} |
} |
$showanswer = &Apache::response::show_answer(); |
$showanswer = &Apache::response::show_answer(); |
unless ( |
unless ($newvariation && !$showanswer) { |
( |
if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) || |
( |
(($env{'form.grade_username'} eq $env{'user.name'}) && |
$Apache::lonhomework::history{"resource.$part.type"} eq |
($env{'form.grade_domain'} eq $env{'user.domain'}))) { |
'anonsurvey' |
$lastresponse = $Apache::lonhomework::history{"resource.$part.$id.submission"}; |
) |
} else { |
|| ( $Apache::lonhomework::history{"resource.$part.type"} eq |
unless (($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') || |
'anonsurveycred' ) |
($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) { |
) |
$lastresponse = $Apache::lonhomework::history{"resource.$part.$id.submission"}; |
&& ( defined( $env{'form.grade_symb'} ) ) |
} |
|| ( $newvariation && !$showanswer ) |
} |
) |
|
{ |
|
$lastresponse = |
|
$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
|
} |
} |
my %lastresponse = &Apache::lonnet::str2hash($lastresponse); |
my %lastresponse = &Apache::lonnet::str2hash($lastresponse); |
|
|
|
|
return \%lastresponse; |
return \%lastresponse; |
|
|
Line 829 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 874 sub get_last_response {
|
Line 870 sub get_last_response {
|
} |
} |
} |
} |
unless ($newvariation) { |
unless ($newvariation) { |
$lastresponse = |
if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) || |
$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
(($env{'form.grade_username'} eq $env{'user.name'}) && |
|
($env{'form.grade_domain'} eq $env{'user.domain'}))) { |
|
$lastresponse = |
|
$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
|
} else { |
|
unless (($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') || |
|
($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) { |
|
$lastresponse = |
|
$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
|
|
|
} |
|
} |
} |
} |
|
|
my %lastresponse = &Apache::lonnet::str2hash($lastresponse); |
my %lastresponse = &Apache::lonnet::str2hash($lastresponse); |
|
|
return \%lastresponse; |
return \%lastresponse; |
Line 1022 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 1039 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.. |