version 1.59, 2005/01/25 00:28:00
|
version 1.61, 2005/02/07 23:37:44
|
Line 145 sub handler {
|
Line 145 sub handler {
|
"$requrl:bre:1:1:Invalid Access"; |
"$requrl:bre:1:1:Invalid Access"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
my ($map,$mid,$murl)=split(/\_\_\_/,$symb); |
if ($symb) { |
&Apache::lonnet::symblist($map,$murl => $mid, |
my ($map,$mid,$murl)=split(/\_\_\_/,$symb); |
'last_known' => $murl); |
&Apache::lonnet::symblist($map,$murl => $mid, |
|
'last_known' => $murl); |
|
} |
} |
} |
$ENV{'request.symb'}=$symb; |
$ENV{'request.symb'}=$symb; |
&Apache::lonnet::courseacclog($symb); |
&Apache::lonnet::courseacclog($symb); |
Line 166 sub handler {
|
Line 168 sub handler {
|
if ($requrl=~m|^/public/| |
if ($requrl=~m|^/public/| |
|| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) { |
|| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) { |
&Apache::lonnet::logthis('Granting public access: '.$requrl); |
&Apache::lonnet::logthis('Granting public access: '.$requrl); |
my $buffer; |
&Apache::loncommon::get_posted_cgi($r); |
$r->read($buffer,$r->header_in('Content-length'),0); |
|
&Apache::loncommon::get_unprocessed_cgi($buffer); |
|
$ENV{'user.name'}='public'; |
$ENV{'user.name'}='public'; |
$ENV{'user.domain'}='public'; |
$ENV{'user.domain'}='public'; |
$ENV{'request.state'} = "published"; |
$ENV{'request.state'} = "published"; |