[LON-CAPA-cvs] cvs: modules /gerd/harvesting lonrecommender.pm

[www]

www		Thu Aug 16 02:31:42 2012 EDT

  Modified files:              
    /modules/gerd/harvesting	lonrecommender.pm 
  Log:
  Should not list subscription files
  
  
Index: modules/gerd/harvesting/lonrecommender.pm
diff -u modules/gerd/harvesting/lonrecommender.pm:1.35 modules/gerd/harvesting/lonrecommender.pm:1.36
--- modules/gerd/harvesting/lonrecommender.pm:1.35	Tue Aug 14 22:16:00 2012
+++ modules/gerd/harvesting/lonrecommender.pm	Thu Aug 16 02:31:42 2012
@@ -5,7 +5,7 @@
 #
 # MODIFY $datapath VARIABLE FOR LOCATION OF DATA FILES
 #
-# $Id: lonrecommender.pm,v 1.35 2012/08/14 22:16:00 www Exp $
+# $Id: lonrecommender.pm,v 1.36 2012/08/16 02:31:42 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -725,7 +725,7 @@
    foreach my $line (@list) {
       my @components=split(/\&/,$line);
       my $fn=$components[0];
-      if ($fn=~/\.(meta|bak|save)$/) { next; }
+      if ($fn=~/\.(meta|bak|save|tmp|subscription)$/) { next; }
       if ($fn=~/\.\d+\.\w+$/) { next; }
       if ($fn=~/^\.+$/) { next; }
       my $type=$components[-1];