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

[www]

www		Mon Jul  9 16:57:30 2012 EDT

  Modified files:              
    /modules/gerd/harvesting	lonindexer.pm 
  Log:
  Get the get parameter
  
  
Index: modules/gerd/harvesting/lonindexer.pm
diff -u modules/gerd/harvesting/lonindexer.pm:1.3 modules/gerd/harvesting/lonindexer.pm:1.4
--- modules/gerd/harvesting/lonindexer.pm:1.3	Mon Jul  9 03:28:24 2012
+++ modules/gerd/harvesting/lonindexer.pm	Mon Jul  9 16:57:30 2012
@@ -5,7 +5,7 @@
 #
 # MODIFY $datapath VARIABLE FOR LOCATION OF DATA FILES
 #
-# $Id: lonindexer.pm,v 1.3 2012/07/09 03:28:24 www Exp $
+# $Id: lonindexer.pm,v 1.4 2012/07/09 16:57:30 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -314,14 +314,6 @@
     undef (@Only);
     undef (@Omit);
     %fieldnames=&Apache::lonmeta::fieldnames();
-#
-# Get the current basket
-#
-    my ($cnum,$cdom,$folder)=split(/\,/,$env{'form.basket'});
-    my %existingres=();
-    if ($folder) {
-       %existingres=&urlres(&mapread($cnum,$cdom,$folder));
-    }
     
 # ------------------------------------- read in machine configuration variables
     my $iconpath= $r->dir_config('lonIconsURL') . "/";
@@ -342,8 +334,18 @@
     # Get the parameters from the query string
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
 	     ['catalogmode','launch','acts','mode','form','element',
-              'only','omit','titleelement']);
+              'only','omit','titleelement','basket']);
     #-------------------------------------------------------------------
+#
+# Get the current basket
+#
+    my ($cnum,$cdom,$folder)=split(/\,/,$env{'form.basket'});
+    my %existingres=();
+    if ($folder) {
+       %existingres=&urlres(&mapread($cnum,$cdom,$folder));
+    }
+
+
     my $closebutton='';
     my $groupimportbutton='';
     my $colspan='';