[LON-CAPA-cvs] cvs: loncom /interface groupsort.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Fri, 16 Aug 2002 17:03:23 -0000
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