--- loncom/homework/rankresponse.pm 2014/02/27 14:41:34 1.70
+++ loncom/homework/rankresponse.pm 2015/01/19 15:35:53 1.72
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# rank style response
#
-# $Id: rankresponse.pm,v 1.70 2014/02/27 14:41:34 bisitz Exp $
+# $Id: rankresponse.pm,v 1.72 2015/01/19 15:35:53 goltermann 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)
.' | '
@@ -335,8 +336,11 @@ sub format_prior_answer {
my %grading =&Apache::lonnet::str2hash($other_data->[1]);
my $output;
foreach my $name (@{ $foil_order }) {
- next if (!defined($lastresponse{$name}));
- $output .= '
'.&HTML::Entities::encode($lastresponse{$name},'<>&"').' |
';
+ if (defined($lastresponse{$name})) {
+ $output .= ''.&HTML::Entities::encode($lastresponse{$name},'<>&"').' |
';
+ } else {
+ $output .= ' |
';
+ }
}
return if (!defined($output));
$output =