Index: openacs-4/packages/file-storage/www/file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/file-storage/www/file.tcl	18 Nov 2002 18:01:05 -0000	1.10
+++ openacs-4/packages/file-storage/www/file.tcl	9 Dec 2002 22:48:54 -0000	1.11
@@ -62,5 +62,11 @@
     set content_size_pretty [lc_numeric $content_size]
 }
 
-ad_return_template
-
+if { [apm_package_installed_p "general-comments"] && [ad_parameter "GeneralCommentsP" -default 0] } {
+    set return_url "[ad_conn url]?file_id=$file_id"
+    set gc_link [general_comments_create_link $file_id $return_url]
+    set gc_comments [general_comments_get_comments $file_id $return_url]
+} else {
+    set gc_link ""
+    set gc_comments ""
+}