loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.254, 2014/12/01 22:52:49	version 1.254.2.2, 2017/05/19 23:41:52
Line 199 sub display_portfolio_usage {	Line 199 sub display_portfolio_usage {
.$helpitem	.$helpitem
.'</div>'	.'</div>'
.'<div>'	.'<div>'
.&Apache::lonhtmlcommon::display_usage($current_disk_usage,$disk_quota)	.&Apache::lonhtmlcommon::display_usage($current_disk_usage,
	$disk_quota,'portfolio')
.'</div>');	.'</div>');
}	}

Line 1068 sub build_access_summary {	Line 1069 sub build_access_summary {
$r->print(&mt('Users: ').$curr_user_list);	$r->print(&mt('Users: ').$curr_user_list);
} elsif ($scope eq 'ip') {	} elsif ($scope eq 'ip') {
my $curr_ips_list = &sort_ips($content->{'ip'});	my $curr_ips_list = &sort_ips($content->{'ip'});
$r->print(&mt('IP(s): ').$curr_ips_list);	$r->print(&mt('IP(s):').' '.$curr_ips_list);
} else {	} else {
$r->print(' ');	$r->print(' ');
}	}
Line 2567 sub get_quota {	Line 2568 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 = 1024 * $disk_quota; # convert from MB to kB
}	}
return $disk_quota;	return $disk_quota;
}	}