loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.172, 2006/11/09 22:33:32	version 1.173, 2006/11/21 21:38:44
Line 1748 sub upload {	Line 1748 sub upload {
my ($r,$url,$group)=@_;	my ($r,$url,$group)=@_;
my $fname=$env{'form.uploaddoc.filename'};	my $fname=$env{'form.uploaddoc.filename'};
my $filesize = (length($env{'form.uploaddoc'})) / 1000; #express in k (1024?)	my $filesize = (length($env{'form.uploaddoc'})) / 1000; #express in k (1024?)
my $disk_quota = 20000; # expressed in k	my $disk_quota;
if (defined($group)) {	if (defined($group)) {
my $grp_quota = &get_group_quota($group); # quota expressed in k	my $grp_quota = &get_group_quota($group); # quota expressed in k
if ($grp_quota ne '') {	if ($grp_quota ne '') {
Line 1756 sub upload {	Line 1756 sub upload {
} else {	} else {
$disk_quota = 0;	$disk_quota = 0;
}	}
	} else {
	$disk_quota = &Apache::loncommon::get_user_quota($env{'user.name'},
	$env{'user.domain'}); #expressed in Mb
	$disk_quota = 1000 * $disk_quota; # convert from Mb to kb
}	}
$fname=&Apache::lonnet::clean_filename($fname);	$fname=&Apache::lonnet::clean_filename($fname);