version 1.122, 2008/11/29 10:34:30
|
version 1.124, 2008/12/31 20:22:12
|
Line 242 sub upload_size_allowed {
|
Line 242 sub upload_size_allowed {
|
&Apache::loncommon::add_to_env("form.$item",$savesize); |
&Apache::loncommon::add_to_env("form.$item",$savesize); |
my $maxsize= &Apache::lonnet::EXT("resource.$ident.maxfilesize"); |
my $maxsize= &Apache::lonnet::EXT("resource.$ident.maxfilesize"); |
if (!$maxsize) { |
if (!$maxsize) { |
$maxsize = 100.0; |
$maxsize = 10.0; # FIXME This should become a domain configuration. |
} |
} |
if ($size > $maxsize) { |
if ($size > $maxsize) { |
my $warn = 'HWFILETOOBIG'.$ident; |
my $warn = 'HWFILETOOBIG'.$ident; |
Line 352 sub handler {
|
Line 352 sub handler {
|
return OK; |
return OK; |
} |
} |
|
|
|
if ($requrl =~ m{^/res/adm/pages/[^/]+\.(gif|png)$}) { |
|
return OK; |
|
} |
|
|
my $handle = &Apache::lonnet::check_for_valid_session($r); |
my $handle = &Apache::lonnet::check_for_valid_session($r); |
|
|
my $result = &sso_login($r,$handle); |
my $result = &sso_login($r,$handle); |