--- loncom/publisher/lonpubdir.pm 2014/04/21 21:26:41 1.152 +++ loncom/publisher/lonpubdir.pm 2014/05/20 19:53:59 1.153 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Authoring Space Directory Lister # -# $Id: lonpubdir.pm,v 1.152 2014/04/21 21:26:41 musolffc Exp $ +# $Id: lonpubdir.pm,v 1.153 2014/05/20 19:53:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -48,10 +48,7 @@ sub handler { # Validate access to the construction space and get username:domain. - my $uname; - my $udom; - - ($uname,$udom)=&Apache::lonnet::constructaccess($r->uri); + my ($uname,$udom)=&Apache::lonnet::constructaccess($r->uri); unless (($uname) && ($udom)) { return HTTP_NOT_ACCEPTABLE; } @@ -262,12 +259,12 @@ sub startpage { # in start_page->bodytag->innerregister $env{'request.noversionuri'}=$formaction; - $r->print(&Apache::loncommon::start_page('Authoring Space',undef)); + $r->print(&Apache::loncommon::start_page('Authoring Space')); 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 + 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( '
' @@ -776,7 +773,7 @@ sub putresource { '  '. # Display publication status ''.$status.''. ''.&Apache::lonlocal::locallocaltime($cmtime).''. - ''.sprintf "%.1f", $size.''. + ''.sprintf("%.1f",$size).''. &Apache::loncommon::end_data_table_row() ); return OK;