loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.121, 2008/11/25 14:19:07	version 1.123, 2008/12/10 16:28:03
Line 238 sub upload_size_allowed {	Line 238 sub upload_size_allowed {
if ($name =~ /^HWFILE(\w+)$/) {	if ($name =~ /^HWFILE(\w+)$/) {
my $ident = $1;	my $ident = $1;
my $item = 'HWFILESIZE'.$ident;	my $item = 'HWFILESIZE'.$ident;
&Apache::loncommon::add_to_env("form.$item",$size);	my $savesize = sprintf("%.6f",$size);
	&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 351 sub handler {	Line 352 sub handler {
return OK;	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);