bagder: curl-www/dl mktable.pl,1.13,1.14

Update of /cvsroot/curl/curl-www/dl
In directory labb:/tmp/cvs-serv20749

Modified Files:
	mktable.pl 
Log Message:
show size as MB if > 999 KB


Index: mktable.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/mktable.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- mktable.pl	11 Jul 2007 17:48:38 -0000	1.13
+++ mktable.pl	11 Jul 2007 21:51:15 -0000	1.14
@@ -267,8 +267,14 @@
            $em?"</a>":"");
     my $size = show($$per{'size'});
     $size = int($size/1024);
-    printf("<td class=\"col7\">%s</td>\n", $size?"$size KB":"&nbsp;");
-    print "</tr>\n";
+    my $szstr="&nbsp;";
+    if($size && ($size < 999)) {
+        $szstr = "$size KB";
+    }
+    elsif($size > 0) {
+        $szstr = sprintf("%.2f MB", $size/1024);
+    }
+    print "<td class=\"col7\">$szstr</td></tr>\n";
     $i++;
 }
 bot();