loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.249, 2013/08/13 17:38:19	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;
}	}
Line 2626 sub handler {	Line 2626 sub handler {
} else {	} else {
($uname,$udom) = &get_name_dom();	($uname,$udom) = &get_name_dom();
$portfolio_root = &get_portfolio_root();	$portfolio_root = &get_portfolio_root();
$title = &mt('My Space');	$title = 'My Space';
$can_modify = 1;	$can_modify = 1;
$can_delete = 1;	$can_delete = 1;
$can_upload = 1;	$can_upload = 1;