loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.250, 2013/08/21 15:42:22	version 1.251, 2013/12/18 01:29:20
Line 2400 sub get_group_quota {	Line 2400 sub get_group_quota {
if (%curr_groups) {	if (%curr_groups) {
my %group_info = &Apache::longroup::get_group_settings(	my %group_info = &Apache::longroup::get_group_settings(
$curr_groups{$group});	$curr_groups{$group});
$group_quota = $group_info{'quota'}; #expressed in Mb	$group_quota = $group_info{'quota'}; #expressed in MB
if ($group_quota) {	if ($group_quota) {
$group_quota = 1000 * $group_quota; #expressed in k	$group_quota = 1000 * $group_quota; #expressed in k
}	}
Line 2522 sub get_quota {	Line 2522 sub get_quota {
}	}
} else {	} else {
$disk_quota = &Apache::loncommon::get_user_quota($env{'user.name'},	$disk_quota = &Apache::loncommon::get_user_quota($env{'user.name'},
$env{'user.domain'}); #expressed in Mb	$env{'user.domain'}); #expressed in MB
$disk_quota = 1000 * $disk_quota; # convert from Mb to kb	$disk_quota = 1000 * $disk_quota; # convert from MB to kB
}	}
return $disk_quota;	return $disk_quota;
}	}