--- loncom/interface/groupsort.pm 2002/08/27 12:18:13 1.15
+++ loncom/interface/groupsort.pm 2003/01/14 18:47:50 1.18
@@ -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.18 2003/01/14 18:47:50 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -44,6 +44,15 @@ use Apache::loncommon;
my %hash; # variable to tie to user specific database
my $iconpath; # variable to be accessible to multiple subroutines
+sub cleanup {
+ if (tied(%hash)){
+ &Apache::lonnet::logthis('Cleanup groupsort: hash');
+ unless (untie(%hash)) {
+ &Apache::lonnet::logthis('Failed cleanup groupsort: hash');
+ }
+ }
+}
+
# ---------------------------------------------------------------- Main Handler
sub handler {
my $r = shift;
@@ -302,10 +311,10 @@ END
}
if ($ENV{'form.catalogmode'} eq 'groupsearch') {
$r->print(<
+
END
-}
+ }
# ---
$r->print(<