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.12 -r1.13
--- openacs-4/packages/file-storage/www/file.tcl	13 Aug 2003 11:14:35 -0000	1.12
+++ openacs-4/packages/file-storage/www/file.tcl	28 Aug 2003 09:41:54 -0000	1.13
@@ -63,11 +63,15 @@
     set content_size_pretty [lc_numeric $content_size]
 }
 
-if { [apm_package_installed_p "general-comments"] && [ad_parameter "GeneralCommentsP" -default 0] } {
-    set return_url "[ad_conn url]?file_id=$file_id"
+set return_url "[ad_conn url]?file_id=$file_id"
+
+if { [apm_package_installed_p "general-comments"] && [ad_parameter "GeneralCommentsP" -package_id [ad_conn package_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 ""
 }
+
+# get folder id so we can implement a back link
+set folder_id [db_string get_folder ""]