loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.16, 2002/09/16 20:57: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 44 use Apache::loncommon;	Line 42 use Apache::loncommon;
my %hash; # variable to tie to user specific database	my %hash; # variable to tie to user specific database
my $iconpath; # variable to be accessible to multiple subroutines	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	# ---------------------------------------------------------------- Main Handler
sub handler {	sub handler {
my $r = shift;	my $r = shift;