--- loncom/interface/groupsort.pm 2002/08/27 12:18:13 1.15
+++ loncom/interface/groupsort.pm 2003/02/03 18:03:52 1.19
@@ -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.19 2003/02/03 18:03:52 harris41 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -27,9 +27,7 @@
# http://www.lon-capa.org/
#
# YEAR=2001
-# 8/7,8/8,10/14,10/15,12/10 Scott Harrison
# YEAR=2002
-# 1/17 Scott Harrison
#
###
@@ -44,6 +42,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 +309,10 @@ END
}
if ($ENV{'form.catalogmode'} eq 'groupsearch') {
$r->print(<
+
END
-}
+ }
# ---
$r->print(<