version 1.2, 2000/10/12 14:54:08
|
version 1.3, 2000/10/16 20:47:39
|
Line 5
|
Line 5
|
# |
# |
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
# |
# |
# 10/11,10/12 Gerd Kortemeyer |
# 10/11,10/12,10/16 Gerd Kortemeyer |
|
|
package Apache::lonambiguous; |
package Apache::lonambiguous; |
|
|
Line 48 sub handler {
|
Line 48 sub handler {
|
&GDBM_READER,0640)) { |
&GDBM_READER,0640)) { |
foreach $envkey (keys %ENV) { |
foreach $envkey (keys %ENV) { |
if ($envkey=~/^form\.(\d+)\.(\d+)$/) { |
if ($envkey=~/^form\.(\d+)\.(\d+)$/) { |
|
# ---------------------------------------------------- Update symb and redirect |
my $mapid=$1; |
my $mapid=$1; |
my $resid=$2; |
my $resid=$2; |
my $resurl=$bighash{'src_'.$mapid.'.'.$resid}; |
my $resurl=$bighash{'src_'.$mapid.'.'.$resid}; |
&Apache::lonnet::symblist($bighash{'map_id_'.$mapid}, |
&Apache::lonnet::symblist($bighash{'map_id_'.$mapid}, |
$resurl => $resid); |
$resurl => $resid); |
|
untie(%bighash); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$resurl); |
'http://'.$ENV{'HTTP_HOST'}.$resurl); |
return REDIRECT; |
return REDIRECT; |
} |
} |
} |
} |
untie(%bighash); |
untie(%bighash); |
# ---------------------------------------------------- Update symb and redirect |
|
} else { |
} else { |
&getlost($r,'Could not access course structure.'); |
&getlost($r,'Could not access course structure.'); |
return OK; |
return OK; |