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

[www]

www		Sat Jul  7 21:25:39 2012 EDT

  Modified files:              
    /modules/gerd/harvesting	londocs.pm 
  Log:
  Less is more: let the recommender read the map
  
  
Index: modules/gerd/harvesting/londocs.pm
diff -u modules/gerd/harvesting/londocs.pm:1.4 modules/gerd/harvesting/londocs.pm:1.5
--- modules/gerd/harvesting/londocs.pm:1.4	Sat Jul  7 21:02:37 2012
+++ modules/gerd/harvesting/londocs.pm	Sat Jul  7 21:25:39 2012
@@ -4,7 +4,7 @@
 # 
 # Documents
 #
-# $Id: londocs.pm,v 1.4 2012/07/07 21:02:37 www Exp $
+# $Id: londocs.pm,v 1.5 2012/07/07 21:25:39 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2616,28 +2616,14 @@
 # * Take out the search button.
 # * Insert basket contents
 # 
-       my $basketcontainer= ($env{'form.pagepath'}) ? 'page'
-                                           : 'sequence';
-       my $basketfolder=$env{'form.folder'};
-       if ($basketfolder eq '') {
-           $basketfolder='default';
-       }
-
-
-
-       my ($errtext,$fatal) = &mapread($coursenum,$coursedom,
-                                    $basketfolder.'.'.$basketcontainer);
-# 
-# Remember for recommender
-#
-
-        my $basket='';
-        foreach my $res (@LONCAPA::map::resources) {
-           my ($title,$id)=split(/\:/,$res);
-           if ($id=~/\/res\//) {
-              $basket.=','.&escape($id);
-           }
+        my $basketcontainer= ($env{'form.pagepath'}) ? 'page'
+                                                     : 'sequence';
+        my $basketfolder=$env{'form.folder'};
+        if ($basketfolder eq '') {
+            $basketfolder='default';
         }
+
+        my $basket=&escape($coursenum.','.$coursedom.','.$basketfolder.'.'.$basketcontainer);
 #
 	my @simpleeditdefaultforma = ( 
 	{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/res.png" alt="'.$lt{impo}.'"  onclick="javascript:groupimport(\''.$basket.'\');"/>' => "<a class='LC_menubuttons_link' href='javascript:groupimport(\"$basket\");'>$lt{'impo'}</a>$help{'Importing_LON-CAPA_Resource'}" },