version 1.46, 2003/05/13 00:52:46
|
version 1.49, 2003/11/01 16:37:21
|
Line 44 use Apache::Constants qw(:common :http :
|
Line 44 use Apache::Constants qw(:common :http :
|
use Apache::File; |
use Apache::File; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
|
use Apache::lonlocal; |
use CGI::Cookie(); |
use CGI::Cookie(); |
use Fcntl qw(:flock); |
use Fcntl qw(:flock); |
|
|
Line 63 sub handler {
|
Line 64 sub handler {
|
|
|
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); |
|
|
|
# --------------------------------------------------------- Initialize Language |
|
|
|
&Apache::lonlocal::get_language_handle($r); |
|
|
# -------------------------------------------------------------- Resource State |
# -------------------------------------------------------------- Resource State |
|
|
if ($requrl=~/^\/res\//) { |
if ($requrl=~/^\/res\//) { |
Line 71 sub handler {
|
Line 76 sub handler {
|
$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); |