Index: openacs-4/packages/download/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/download/www/index.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/download/www/index.tcl	14 May 2001 20:31:42 -0000	1.2
@@ -61,11 +61,12 @@
     set approval "       and dar.approved_p = 't'  "
 }
 
+#FIXME fix the file size thing
 
 set table_def {
     {archive_name "Software Name" 
         {lower(archive_name) $order}
-        {<td><a href=download-verify?revision_id=$revision_id><img src=[ad_conn package_url]/graphics/download.gif border=0></a> &nbsp;<a href=one-revision?revision_id=$revision_id>$archive_name $version_name</a> &nbsp;([expr $file_size / 1024]k)<br>$summary</td>}}
+        {<td><a href=download-verify?revision_id=$revision_id><img src=[ad_conn package_url]/graphics/download.gif border=0></a> &nbsp;<a href=one-revision?revision_id=$revision_id>$archive_name $version_name</a> &nbsp;([expr [cr_file_size $file_size] / 1024]k)<br>$summary</td>}}
     {archive_type "Software Type" {} {}}
     {downloads "# Downloads" {} {}}
 }