--- loncom/homework/rankresponse.pm 2014/05/05 17:40:54 1.71
+++ loncom/homework/rankresponse.pm 2025/01/27 14:46:20 1.76
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# rank style response
#
-# $Id: rankresponse.pm,v 1.71 2014/05/05 17:40:54 bisitz Exp $
+# $Id: rankresponse.pm,v 1.76 2025/01/27 14:46:20 raeburn Exp $
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -51,7 +51,8 @@ sub start_rankresponse {
$result=&Apache::response::meta_package_write('rankresponse');
} elsif ($target eq 'edit' ) {
$result.=&Apache::edit::start_table($token)
- .'
'.&Apache::lonxml::description($token).' | '
+ .'
'.&Apache::loncommon::insert_folding_button()
+ .&Apache::lonxml::description($token).' | '
.''.&mt('Delete?').' '
.&Apache::edit::deletelist($target,$token)
.' | '
@@ -361,7 +362,7 @@ sub displayfoils {
my $text=$Apache::response::foilgroup{$name.'.text'};
my $value=shift(@correctorder);
if ($target eq 'web') {
- $result.='
'.$value.': '.$text;
+ $result.=''.$value.': '.$text.'
';
} else {
$result.=' \strut\\\\\strut '.$value.':'.$text;
}
@@ -409,7 +410,7 @@ sub displayfoils {
my $lastopt=$lastresponse{$name};
my $optionlist='';
if ($target ne 'tex') {
- $optionlist = "\n";
+ $optionlist = "\n";
}
if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
my $fieldname = $env{'request.symb'}.'&part_'.$Apache::inputtags::part.'&rankresponse'.'&HWVAL_'.$Apache::inputtags::response['-1'].':'.$temp;
@@ -419,20 +420,20 @@ sub displayfoils {
foreach $option (@whichopt) {
if ($option eq $lastopt) {
if ($target ne 'tex' ) {
- $optionlist.="\n";
+ $optionlist.="\n";
} elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
$optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option);
}
} else {
if ($target ne 'tex') {
- $optionlist.="\n";
+ $optionlist.="\n";
} elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') {
$optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option);
}
}
}
if ($target ne 'tex' && $Apache::lonhomework::type ne 'exam') {
- $optionlist='\n";
@@ -443,15 +444,17 @@ sub displayfoils {
}
my $text=$Apache::response::foilgroup{$name.'.text'};
if ($target ne 'tex') {
+ $result .= '';
if ($Apache::lonhomework::type ne 'exam') {
- $result.='
'.$optionlist.$text."\n";
+ $result.=$optionlist.$text."\n";
} else {
- $result.='
'.$text."\n";
+ $result.=$text."\n";
}
if ($Apache::lonhomework::type eq 'exam') {
my @values=(1..scalar(@whichopt));
$result.=&Apache::optionresponse::webbubbles(\@values,\@whichopt,$temp,$lastopt);
}
+ $result .= '
';
} else {
if ($Apache::lonhomework::type eq 'exam') {
my $itemlabel;