--- loncom/interface/groupsort.pm	2002/05/24 16:04:54	1.12
+++ loncom/interface/groupsort.pm	2002/08/16 17:03:23	1.14
@@ -2,7 +2,7 @@
 # The LON-CAPA group sort handler
 # Allows for sorting prior to import into RAT.
 #
-# $Id: groupsort.pm,v 1.12 2002/05/24 16:04:54 www 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 @@ sub handler {
  
    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                            ['acts','catalogmode','mode']);
-
     # color scheme
     my $fileclr = '#ffffe6';
     my $titleclr = '#ddffff';
@@ -194,7 +193,7 @@ END
 
     }
 # ----------------------------- diropendb is now the filename of the db to open
-    if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {
+    if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {
 	my $acts = $ENV{'form.acts'};
 	my @Acts = split(/b/,$acts);
 	my %ahash;
@@ -284,16 +283,17 @@ END
     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