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.17, 2003/01/09 22:04:28
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 {
	untie(%hash) if (tied(%hash));
	}

# ---------------------------------------------------------------- Main Handler	# ---------------------------------------------------------------- Main Handler
sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 302 END	Line 306 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);