version 1.17, 2003/01/09 22:04:28
|
version 1.19, 2003/02/03 18:03:52
|
Line 27
|
Line 27
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# YEAR=2001 |
# YEAR=2001 |
# 8/7,8/8,10/14,10/15,12/10 Scott Harrison |
|
# YEAR=2002 |
# YEAR=2002 |
# 1/17 Scott Harrison |
|
# |
# |
### |
### |
|
|
Line 45 my %hash; # variable to tie to user spec
|
Line 43 my %hash; # variable to tie to user spec
|
my $iconpath; # variable to be accessible to multiple subroutines |
my $iconpath; # variable to be accessible to multiple subroutines |
|
|
sub cleanup { |
sub cleanup { |
untie(%hash) if (tied(%hash)); |
if (tied(%hash)){ |
|
&Apache::lonnet::logthis('Cleanup groupsort: hash'); |
|
unless (untie(%hash)) { |
|
&Apache::lonnet::logthis('Failed cleanup groupsort: hash'); |
|
} |
|
} |
} |
} |
|
|
# ---------------------------------------------------------------- Main Handler |
# ---------------------------------------------------------------- Main Handler |