--- loncom/interface/lonfeedback.pm 2012/03/15 13:27:25 1.341
+++ loncom/interface/lonfeedback.pm 2012/03/15 15:02:59 1.342
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.341 2012/03/15 13:27:25 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.342 2012/03/15 15:02:59 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3482,6 +3482,13 @@ END
}
}
}
+ if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {
+ $r->print($lt{'chth'}.'
'."\n");
+ foreach my $attach (@{$currnewattach}) {
+ $attach =~ m#/([^/]+)$#;
+ $r->print('
'."\n");
+ }
+ }
}
$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());