loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.15, 2002/08/27 12:18:13	version 1.18, 2003/01/14 18:47:50
Line 44 use Apache::loncommon;	Line 44 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;
Line 302 END	Line 311 END
}	}
if ($ENV{'form.catalogmode'} eq 'groupsearch') {	if ($ENV{'form.catalogmode'} eq 'groupsearch') {
$r->print(<<END);	$r->print(<<END);
<input type="button" name="alter" value="GO BACK"	<input type="button" name="alter" value="New Search"
onClick="window.location='/adm/searchcat?catalogmode=groupsearch'" />	onClick="window.location='/adm/searchcat?catalogmode=groupsearch&cleargroupsort=1'" />
END	END
}	}
# ---	# ---

$r->print(<<END);	$r->print(<<END);