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