version 1.26, 2004/01/19 18:17:29
|
version 1.27, 2004/05/10 08:34:50
|
Line 39 use Apache::Constants qw(:common);
|
Line 39 use Apache::Constants qw(:common);
|
use GDBM_File; |
use GDBM_File; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonnet; |
|
|
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 |
Line 234 END
|
Line 235 END
|
my $key = $_; |
my $key = $_; |
$key =~ s/^store_//; |
$key =~ s/^store_//; |
$shash{$key} = $hash{'storectr_'.$key}; |
$shash{$key} = $hash{'storectr_'.$key}; |
$thash{$key} = $hash{'store_'.$key}; |
if (&Apache::lonnet::gettitle($key) eq '') { |
|
$thash{$key} = $hash{'store_'.$key}; } |
|
else { |
|
$thash{$key} = &Apache::lonnet::gettitle($key); } |
} |
} |
} |
} |
if ($ENV{'form.oldval'}) { |
if ($ENV{'form.oldval'}) { |