version 1.49, 2003/11/01 16:37:21
|
version 1.50, 2003/11/21 21:27:25
|
Line 119 sub handler {
|
Line 119 sub handler {
|
if ($ENV{'form.symb'}) { |
if ($ENV{'form.symb'}) { |
$symb=&Apache::lonnet::symbclean($ENV{'form.symb'}); |
$symb=&Apache::lonnet::symbclean($ENV{'form.symb'}); |
if (&Apache::lonnet::symbverify($symb,$requrl)) { |
if (&Apache::lonnet::symbverify($symb,$requrl)) { |
my ($map,$mid,$murl)=split(/\_\_\_/,$symb); |
my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb); |
&Apache::lonnet::symblist($map,$murl => $mid, |
&Apache::lonnet::symblist($map,$murl => $mid, |
'last_known' => $murl); |
'last_known' => $murl); |
} else { |
} else { |