--- loncom/interface/groupsort.pm 2002/08/27 12:18:13 1.15
+++ loncom/interface/groupsort.pm 2003/01/09 22:04:28 1.17
@@ -2,7 +2,7 @@
# The LON-CAPA group sort handler
# Allows for sorting prior to import into RAT.
#
-# $Id: groupsort.pm,v 1.15 2002/08/27 12:18:13 www Exp $
+# $Id: groupsort.pm,v 1.17 2003/01/09 22:04:28 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -44,6 +44,10 @@ use Apache::loncommon;
my %hash; # variable to tie to user specific database
my $iconpath; # variable to be accessible to multiple subroutines
+sub cleanup {
+ untie(%hash) if (tied(%hash));
+}
+
# ---------------------------------------------------------------- Main Handler
sub handler {
my $r = shift;
@@ -302,10 +306,10 @@ END
}
if ($ENV{'form.catalogmode'} eq 'groupsearch') {
$r->print(<
+
END
-}
+ }
# ---
$r->print(<