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

[matthew]

matthew		Fri Aug 16 13:03:23 2002 EDT

  Modified files:              
    /loncom/interface	groupsort.pm 
  Log:
  Fix a bug which caused groupimport to forget its mode.
  
  
Index: loncom/interface/groupsort.pm
diff -u loncom/interface/groupsort.pm:1.13 loncom/interface/groupsort.pm:1.14
--- loncom/interface/groupsort.pm:1.13	Mon Aug 12 14:21:42 2002
+++ loncom/interface/groupsort.pm	Fri Aug 16 13:03:23 2002
@@ -2,7 +2,7 @@
 # The LON-CAPA group sort handler
 # Allows for sorting prior to import into RAT.
 #
-# $Id: groupsort.pm,v 1.13 2002/08/12 18:21:42 albertel Exp $
+# $Id: groupsort.pm,v 1.14 2002/08/16 17:03:23 matthew Exp $
 # 
 # Copyright Michigan State University Board of Trustees
 #
@@ -49,7 +49,6 @@
  
    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                            ['acts','catalogmode','mode']);
-
     # color scheme
     my $fileclr = '#ffffe6';
     my $titleclr = '#ddffff';
@@ -284,16 +283,17 @@
     untie %hash;
     my $ctr = 0;
     my $clen = scalar(keys %shash);
-   $r->print('<h2><font color="#888888">The LearningOnline Network With CAPA '.
-	      'Group Sorter</font></h2>'."\n");
-    $r->print('<b><font color="#888888">Finalize order of resources</font>'.
-	      '</b>'."\n");
-    $r->print("<form method='post' action='/adm/groupsort' name='groupsort' ".
-	      "enctype='application/x-www-form-urlencoded'>");
-    $r->print(<<END);
+   $r->print(<<END);
+<h2><font color="#888888">
+    The LearningOnline Network With CAPA Group Sorter
+    </font></h2>
+<b><font color="#888888">Finalize order of resources</font></b>
+<form method='post' action='/adm/groupsort' name='groupsort'
+      enctype='application/x-www-form-urlencoded'>
 <input type="hidden" name="fnum" value="$clen" />
 <input type="hidden" name="oldval" value="" />
 <input type="hidden" name="newval" value="" />
+<input type="hidden" name="mode" value="$ENV{'form.mode'}" />
 END
 
 # --- Expand here if "GO BACK" button desired