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

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 15 Nov 2005 20:33:21 -0000


albertel		Tue Nov 15 15:33:21 2005 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  - cleanup
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.173 loncom/interface/lonfeedback.pm:1.174
--- loncom/interface/lonfeedback.pm:1.173	Thu Nov 10 06:31:04 2005
+++ loncom/interface/lonfeedback.pm	Tue Nov 15 15:33:20 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.173 2005/11/10 11:31:04 www Exp $
+# $Id: lonfeedback.pm,v 1.174 2005/11/15 20:33:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1196,11 +1196,7 @@
     if ($type eq 'allversions' || $type eq 'export') {
         $start = 0;
         if ($$contrib{$idx.':history'}) {
-            if ($$contrib{$idx.':history'} =~ m/:/) {
-                @postversions = split/:/,$$contrib{$idx.':history'};
-            } else {
-                @postversions = ("$$contrib{$idx.':history'}");
-            }
+	    @postversions = split(/:/,$$contrib{$idx.':history'});
         }
         &get_post_versions($messages,$$contrib{$idx.':message'},1);
         &get_post_versions($subjects,$$contrib{$idx.':subject'},1);