--- loncom/interface/lonfeedback.pm	2012/03/15 13:27:25	1.341
+++ loncom/interface/lonfeedback.pm	2012/03/15 21:33:27	1.343
@@ -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.343 2012/03/15 21:33:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1931,15 +1931,17 @@ $latexHelp
 <p>
 END
 
-$r->print(&Apache::lonhtmlcommon::start_pick_box());
-$r->print(&Apache::lonhtmlcommon::row_title(&mt('Subject')));
-$r->print('<input type="text" name="subject" size="30" value="'."$subject".'" /></p>');
-$r->print(&Apache::lonhtmlcommon::row_closure());
-$r->print(&Apache::lonhtmlcommon::row_title(&mt('Message')));
-$r->print('<textarea name="comment" id="comment" cols="60" rows="10" $textareaclass>'."$comment".
-'</textarea>');
-$r->print(&Apache::lonhtmlcommon::row_closure(1));
-$r->print(&Apache::lonhtmlcommon::end_pick_box());
+    $r->print(&Apache::lonhtmlcommon::start_pick_box());
+    $r->print(&Apache::lonhtmlcommon::row_title(&mt('Subject')));
+    $r->print('<input type="text" name="subject" size="30" value="'.
+              $subject.'" /></p>');
+    $r->print(&Apache::lonhtmlcommon::row_closure());
+    $r->print(&Apache::lonhtmlcommon::row_title(&mt('Message')));
+    $r->print('<textarea name="comment" id="comment" cols="60" rows="10" '.
+              $textareaclass.'>'.$comment.
+              '</textarea>');
+    $r->print(&Apache::lonhtmlcommon::row_closure(1));
+    $r->print(&Apache::lonhtmlcommon::end_pick_box());
 
     if ( ($env{'form.editdisc'}) || ($env{'form.replydisc'}) ) {
         if ($env{'form.origpage'}) {
@@ -3482,6 +3484,13 @@ END
                 }
             }
         }
+        if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) {
+            $r->print($lt{'chth'}.'<br />'."\n");
+            foreach my $attach (@{$currnewattach}) {
+                $attach =~ m#/([^/]+)$#;
+                $r->print('<label><input type="checkbox" name="delnewattach" value="'.$attach.'" />&nbsp;'.$1.'</label><br />'."\n");
+            }
+        }
     }
     $r->print(&Apache::lonhtmlcommon::row_closure(1));
     $r->print(&Apache::lonhtmlcommon::end_pick_box());