[LON-CAPA-cvs] cvs: loncom /publisher lonpubdir.pm

[raeburn]

raeburn		Tue May 20 19:53:59 2014 EDT

  Modified files:              
    /loncom/publisher	lonpubdir.pm 
  Log:
  - Coding style: sprintf() etc.
  
  
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.152 loncom/publisher/lonpubdir.pm:1.153
--- loncom/publisher/lonpubdir.pm:1.152	Mon Apr 21 21:26:41 2014
+++ loncom/publisher/lonpubdir.pm	Tue May 20 19:53:59 2014
@@ -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 @@
 
     # 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 @@
     # 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(
                      '<div style="float:right;padding-top:0;margin-top;0">'
@@ -776,7 +773,7 @@
               '<td class="LC_browser_file_'.$pubstatus.'">  </td>'. # Display publication status
               '<td>'.$status.'</td>'.
 	      '<td>'.&Apache::lonlocal::locallocaltime($cmtime).'</td>'.
-	      '<td>'.sprintf "%.1f", $size.'</td>'.
+	      '<td>'.sprintf("%.1f",$size).'</td>'.
 	      &Apache::loncommon::end_data_table_row()
     );
     return OK;