[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm

[raeburn]

raeburn		Thu Mar 15 15:02:59 2012 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  - Reverse unwanted deletion in 1.341.
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.341 loncom/interface/lonfeedback.pm:1.342
--- loncom/interface/lonfeedback.pm:1.341	Thu Mar 15 13:27:25 2012
+++ loncom/interface/lonfeedback.pm	Thu Mar 15 15:02:59 2012
@@ -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 @@
                 }
             }
         }
+        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.'" /> '.$1.'</label><br />'."\n");
+            }
+        }
     }
     $r->print(&Apache::lonhtmlcommon::row_closure(1));
     $r->print(&Apache::lonhtmlcommon::end_pick_box());