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); |