Index: openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	16 Sep 2002 20:55:10 -0000	1.4
+++ openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl	23 Apr 2003 06:08:37 -0000	1.4.2.1
@@ -34,14 +34,24 @@
 }
 
 ad_proc apm_header { { -form "" } args } {
+    Generates HTML for the header of a page (including context bar).
+    Must only be used for APM admin pages (under /acs-admin/apm).
 
+    We are adding the APM index page to the context bar
+    so it doesn't have to be added on each page
+
+    @author Peter Marklund
+} {
+    set apm_title "ACS Package Manager Administration"
+    set apm_url "/acs-admin/apm"
+
     if { [llength $args] == 0 } {
-	set context_bar [ad_admin_context_bar "ACS Package Manager"]
-	set title "ACS Package Manager Administration"
+	set title $apm_title
+        set context_bar [ad_context_bar $title]
     } else {
-	
-	set context_bar [eval [concat [list ad_admin_context_bar [list "/acs-admin/apm/" "ACS Package Manager"]] $args]]
 	set title [lindex $args end]
+        set context [concat [list [list $apm_url $apm_title]] $args]
+        set context_bar [eval ad_context_bar $context]
     }
     set header [ad_header $title ""]
     append body "$header\n"