Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	29 May 2008 14:59:43 -0000	1.35
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	29 May 2008 15:09:52 -0000	1.36
@@ -1296,6 +1296,8 @@
 	if [db_0or1row instance_info { *SQL* } ] {
 	    set folder_id [content::folder::new -name "bug_tracker_$project_id" -package_id $project_id]
 	    content::folder::register_content_type -folder_id $folder_id -content_type {bt_bug_revision} -include_subtypes t
+	    content::folder::register_content_type -folder_id $folder_id -content_type "content_revision"
+	    content::folder::register_content_type -folder_id $folder_id -content_type "image"
 	    
 	    set keyword_id [content::keyword::new -heading "$instance_name"]
 	    
@@ -1378,3 +1380,49 @@
                              -package_id $package_id \
                              -workflow_id $workflow_id]]
 }
+
+#####
+#
+# Related Files
+#
+#####
+
+ad_proc bug_tracker::related_files_p {} { 
+    Is the related files submission feature turned on?
+} {
+    return [parameter::get -package_id [ad_conn package_id] -parameter "RelatedFilesP" -default 1]
+}
+
+ad_proc bug_tracker::get_related_files_links {
+    {-bug_id:required}
+} {
+    set related_files_list [list]
+    set user_id [ad_conn user_id]
+    set admin_p [permission::permission_p \
+                     -party_id $user_id \
+                     -object_id [ad_conn package_id] \
+                     -privilege "admin"]
+    set return_url [ad_return_url]
+
+    db_foreach get_related_files_for_bug {} {
+        set view_url [export_vars -base related-file-download {bug_id related_object_id {t $related_revision_id}}]
+        set properties_url [export_vars -base "related-file-properties" {bug_id related_object_id}]
+        set delete_url [export_vars -base "related-file-delete" {bug_id related_object_id return_url}]
+        set new_version_url [export_vars -base "related-file-update" {bug_id related_object_id return_url}]
+        if { ( $related_creation_user == $user_id ) || $admin_p } {
+            set extra_actions " | <a href=\"$new_version_url\">[_ bug-tracker.upload_new_version]</a> | <a href=\"$delete_url\">[_ bug-tracker.delete]</a>"
+        } else {
+            set extra_actions ""
+        }
+        lappend related_files_list "$related_title <a href=\"${view_url}\">[_ bug-tracker.download]</a> | <a href=\"${properties_url}\">[_ bug-tracker.properties]</a>${extra_actions}"
+    } if_no_rows { 
+        set related_files_string [_ bug-tracker.No_related_files]
+    }
+    
+    if { [llength $related_files_list] != 0 } {
+        set related_files_string [join $related_files_list "<br>"]
+    }
+    
+    return $related_files_string
+}
+