Index: openacs-4/packages/bug-tracker/tcl/bug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	11 Jun 2008 01:12:32 -0000	1.24
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	15 Jun 2008 19:37:01 -0000	1.25
@@ -496,7 +496,7 @@
 } {
     return [workflow::get_id \
             -short_name [workflow_short_name] \
-            -package_key [bug_tracker::package_key]]
+            -package_key bug-tracker]
 
 }
 
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/bug-tracker/tcl/bug-procs.tcl.orig'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl	29 May 2008 14:59:43 -0000	1.1
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl	15 Jun 2008 19:37:01 -0000	1.2
@@ -28,7 +28,7 @@
         }
     }
 
-    set package_key [bug_tracker::package_key]
+    set package_key bug-tracker
 
     set package_id_list [db_list get_package_ids {}]
     
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.36 -r1.37
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	29 May 2008 15:09:52 -0000	1.36
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	15 Jun 2008 19:37:01 -0000	1.37
@@ -10,10 +10,6 @@
 
 namespace eval bug_tracker {}
 
-ad_proc bug_tracker::package_key {} {
-    return "bug-tracker"
-}
-
 ad_proc bug_tracker::conn { args } {
 
     global bt_conn
Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl	25 Feb 2005 17:08:11 -0000	1.1
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl	15 Jun 2008 19:37:01 -0000	1.2
@@ -18,7 +18,7 @@
 } {
     set bt_instance [parameter::get -parameter BugTrackerInstance -package_id [ad_acs_kernel_id] -default {}]
     if {![empty_string_p $bt_instance]} {
-	array set community_info [site_node::get -url "${bt_instance}/[bug_tracker::package_key]"]
+	array set community_info [site_node::get -url "${bt_instance}/bug-tracker"]
 	set bt_package_id $community_info(package_id)
 	db_foreach open_bug { *SQL* } {
 	    set case_id [workflow::case::get_id \
@@ -71,4 +71,4 @@
 	    }
 	}
     }
-}
\ No newline at end of file
+}
Index: openacs-4/packages/bug-tracker/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/install-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/bug-tracker/tcl/install-procs.tcl	29 May 2008 15:09:52 -0000	1.5
+++ openacs-4/packages/bug-tracker/tcl/install-procs.tcl	15 Jun 2008 19:37:01 -0000	1.6
@@ -149,7 +149,7 @@
     }
     
     lappend spec contract_name [workflow::service_contract::action_side_effect] 
-    lappend spec owner [bug_tracker::package_key]
+    lappend spec owner bug-tracker
     
     acs_sc::impl::new_from_spec -spec $spec
 }
@@ -166,7 +166,7 @@
     }
     
     lappend spec contract_name [workflow::service_contract::role_default_assignees]
-    lappend spec owner [bug_tracker::package_key]
+    lappend spec owner bug-tracker
     
     acs_sc::impl::new_from_spec -spec $spec
 }
@@ -183,7 +183,7 @@
     }
     
     lappend spec contract_name [workflow::service_contract::role_default_assignees]
-    lappend spec owner [bug_tracker::package_key]
+    lappend spec owner bug-tracker
     
     acs_sc::impl::new_from_spec -spec $spec
 }
@@ -200,7 +200,7 @@
     }
     
     lappend spec contract_name [workflow::service_contract::activity_log_format_title]
-    lappend spec owner [bug_tracker::package_key]
+    lappend spec owner bug-tracker
     
     acs_sc::impl::new_from_spec -spec $spec
 }
@@ -217,7 +217,7 @@
     }
     
     lappend spec contract_name [workflow::service_contract::notification_info]
-    lappend spec owner [bug_tracker::package_key]
+    lappend spec owner bug-tracker
     
     acs_sc::impl::new_from_spec -spec $spec
 }