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.8 -r1.8.2.1
--- openacs-4/packages/file-storage/www/file.tcl	17 Sep 2002 21:03:27 -0000	1.8
+++ openacs-4/packages/file-storage/www/file.tcl	9 Dec 2002 22:43:19 -0000	1.8.2.1
@@ -74,4 +74,13 @@
 
 db_multirow version version_info $sql
 
-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 ""
+}
+
+