--- loncom/homework/matchresponse.pm 2013/04/30 03:03:34 1.89
+++ loncom/homework/matchresponse.pm 2015/01/19 15:35:53 1.92
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Full matching style response
#
-# $Id: matchresponse.pm,v 1.89 2013/04/30 03:03:34 raeburn Exp $
+# $Id: matchresponse.pm,v 1.92 2015/01/19 15:35:53 goltermann Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -55,7 +55,7 @@ sub start_matchresponse {
$result=&Apache::response::meta_package_write('matchresponse');
} 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)
.' | '
@@ -319,7 +319,8 @@ sub start_foilgroup {
&Apache::response::pushrandomnumber(undef,$target);
if ($target eq 'edit') {
$result.=&Apache::edit::start_table($token)
- .'
'.&mt('Collection Of Foils').' | '
+ .'
'.&Apache::loncommon::insert_folding_button()
+ .&mt('Collection Of Foils').' | '
.''.&mt('Delete?')
.&Apache::edit::deletelist($target,$token)
.' | '
@@ -580,7 +581,10 @@ sub format_prior_answer {
my $output;
foreach my $name (@{ $foil_order }) {
- my $item=shift(@items);
+ my $item = &HTML::Entities::encode(shift(@items),'<>&"');
+ if ($item eq '') {
+ $item = ' ';
+ }
$output .= '
'.$item.' |
';
}
return if (!defined($output));