version 1.16, 2002/09/16 20:57:28
|
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; |