version 1.137, 2011/08/09 01:35:31
|
version 1.140, 2012/12/04 16:00:42
|
Line 156 sub get_posted_cgi {
|
Line 156 sub get_posted_cgi {
|
for ($i=0;$i<=$#lines;$i++) { |
for ($i=0;$i<=$#lines;$i++) { |
if ($lines[$i]=~/^--\Q$contentsep\E/) { |
if ($lines[$i]=~/^--\Q$contentsep\E/) { |
if ($name) { |
if ($name) { |
$value=~s/[\r\n]+$//; |
chomp($value); |
|
if (($r->uri eq '/adm/portfolio') && |
|
($name eq 'uploaddoc')) { |
|
if (length($value) == 1) { |
|
$value=~s/[\r\n]$//; |
|
} |
|
} |
if (ref($fields) eq 'ARRAY') { |
if (ref($fields) eq 'ARRAY') { |
next if (!grep(/^\Q$name\E$/,@{$fields})); |
next if (!grep(/^\Q$name\E$/,@{$fields})); |
} |
} |
Line 438 sub handler {
|
Line 444 sub handler {
|
|
|
# ------------------------------------------------------ Check if load balancer |
# ------------------------------------------------------ Check if load balancer |
|
|
($is_balancer,$otherserver) = |
my $checkexempt; |
&Apache::lonnet::check_loadbalancing($env{'user.name'}, |
if ($env{'user.loadbalexempt'} eq $r->dir_config('lonHostID')) { |
$env{'user.domain'}); |
if ($env{'user.loadbalcheck.time'} + 600 > time) { |
|
$checkexempt = 1; |
|
} |
|
} |
|
unless ($checkexempt) { |
|
($is_balancer,$otherserver) = |
|
&Apache::lonnet::check_loadbalancing($env{'user.name'}, |
|
$env{'user.domain'}); |
|
} |
if ($is_balancer) { |
if ($is_balancer) { |
$r->set_handlers('PerlResponseHandler'=> |
$r->set_handlers('PerlResponseHandler'=> |
[\&Apache::switchserver::handler]); |
[\&Apache::switchserver::handler]); |
Line 580 sub handler {
|
Line 594 sub handler {
|
} |
} |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};; |
if ($requrl =~ m{^/+uploaded/\Q$cdom\E/\Q$cnum\E/docs/.+\.html?$}) { |
if ($requrl =~ m{^/+uploaded/\Q$cdom\E/\Q$cnum\E/(docs|supplemental)/.+\.html?$}) { |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
if ($query) { |
if ($query) { |
&Apache::loncommon::get_unprocessed_cgi($query,['forceedit']); |
&Apache::loncommon::get_unprocessed_cgi($query,['forceedit']); |