loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.146, 2013/07/01 01:44:29	version 1.147, 2013/07/02 19:04:49
Line 152 sub startpage {	Line 152 sub startpage {
$env{'request.noversionuri'}=$formaction;	$env{'request.noversionuri'}=$formaction;
$r->print(&Apache::loncommon::start_page('Authoring Space',undef));	$r->print(&Apache::loncommon::start_page('Authoring Space',undef));

	my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
	my $current_disk_usage = &Apache::lonnet::diskusage($udom,$uname,"$londocroot/priv/$udom/$uname");
	my $disk_quota = &Apache::loncommon::get_user_quota($uname,$udom,'author'); #expressed in Mb
	$disk_quota = 1000 * $disk_quota; # convert from Mb to kb

$r->print(&Apache::loncommon::head_subbox(	$r->print(&Apache::loncommon::head_subbox(
&Apache::loncommon::CSTR_pageheader()));	'<div style="float:right;padding-top:0;margin-top;0">'
	.&Apache::lonhtmlcommon::display_usage($current_disk_usage,$disk_quota)
	.'</div>'
	.&Apache::loncommon::CSTR_pageheader()));

my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn);	my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn);
my $doctitle = 'LON-CAPA '.&mt('Authoring Space');	my $doctitle = 'LON-CAPA '.&mt('Authoring Space');