version 1.73, 2004/04/23 15:23:35
|
version 1.74, 2004/04/23 15:43:41
|
Line 289 sub loadmap {
|
Line 289 sub loadmap {
|
$randompick{$referid}=$token->[2]->{'value'}; |
$randompick{$referid}=$token->[2]->{'value'}; |
} |
} |
if ($token->[2]->{'name'} eq 'parameter_encrypturl') { |
if ($token->[2]->{'name'} eq 'parameter_encrypturl') { |
$encurl{$referid}=$token->[2]->{'value'}; |
if ($token->[2]->{'value'}=~/^yes$/i) { |
|
$encurl{$referid}=1; |
|
} |
} |
} |
if ($token->[2]->{'name'} eq 'parameter_hiddenresource') { |
if ($token->[2]->{'name'} eq 'parameter_hiddenresource') { |
$hiddenurl{$referid}=$token->[2]->{'value'}; |
if ($token->[2]->{'value'}=~/^yes$/i) { |
|
$hiddenurl{$referid}=1; |
|
} |
} |
} |
} |
} |
|
|
Line 571 sub readmap {
|
Line 575 sub readmap {
|
$hash{$_}=&putinversion($hash{$_}); |
$hash{$_}=&putinversion($hash{$_}); |
} |
} |
} |
} |
|
# ---------------------------------------------------------------- Encrypt URLs |
|
foreach (keys %encurl) { |
|
$hash{'src_'.$_}=&Apache::lonenc::encrypted($hash{'src_'.$_}); |
|
} |
|
# ----------------------------------------------- Close hashes to finally store |
|
# --------------------------------- Routine must pass this point, no early outs |
unless ((untie(%hash)) && (untie(%parmhash))) { |
unless ((untie(%hash)) && (untie(%parmhash))) { |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
"Could not untie coursemap $fn for $uri.</font>"); |
"Could not untie coursemap $fn for $uri.</font>"); |
} |
} |
|
# ---------------------------------------------------- Store away initial state |
{ |
{ |
my $cfh; |
my $cfh; |
if ($cfh=Apache::File->new(">$fn.state")) { |
if ($cfh=Apache::File->new(">$fn.state")) { |