version 1.49, 2003/11/01 16:37:21
|
version 1.51, 2004/04/23 23:01:36
|
Line 70 sub handler {
|
Line 70 sub handler {
|
|
|
# -------------------------------------------------------------- Resource State |
# -------------------------------------------------------------- Resource State |
|
|
if ($requrl=~/^\/res\//) { |
if ($requrl=~/^\/+(res|uploaded)\//) { |
$ENV{'request.state'} = "published"; |
$ENV{'request.state'} = "published"; |
} else { |
} else { |
$ENV{'request.state'} = 'unknown'; |
$ENV{'request.state'} = 'unknown'; |
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 { |