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.252, 2014/01/14 18:54:56
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 2711 sub handler {	Line 2711 sub handler {
}	}
if ($env{'form.meta'}) {	if ($env{'form.meta'}) {
&open_form($r,$url);	&open_form($r,$url);
$r->print(&mt('Edit the meta data').'<br />');	$r->print(&mt('Edit Metadata').'<br />');
&close_form($r,$url);	&close_form($r,$url);
}	}
if ($env{'form.uploaddoc.filename'}) {	if ($env{'form.uploaddoc.filename'}) {