version 1.47, 2003/09/16 18:15:43
|
version 1.51, 2004/04/23 23:01:36
|
Line 66 sub handler {
|
Line 66 sub handler {
|
|
|
# --------------------------------------------------------- Initialize Language |
# --------------------------------------------------------- Initialize Language |
|
|
&Apache::lonlocal::get_language_handle(); |
&Apache::lonlocal::get_language_handle($r); |
|
|
# -------------------------------------------------------------- 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'; |
} |
} |
$ENV{'request.filename'} = $r->filename; |
$ENV{'request.filename'} = $r->filename; |
|
$ENV{'request.noversionuri'} = &Apache::lonnet::deversion($requrl); |
# -------------------------------------------------------- Load POST parameters |
# -------------------------------------------------------- Load POST parameters |
|
|
&Apache::loncommon::get_posted_cgi($r); |
&Apache::loncommon::get_posted_cgi($r); |
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 { |