Index: openacs.org-dev/packages/acs-subsite/www/admin/parties/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-subsite/www/admin/parties/one.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-subsite/www/admin/parties/one.tcl	9 Jul 2002 17:34:59 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-subsite/www/admin/parties/one.tcl	8 Oct 2002 15:46:48 -0000	1.1.1.2
@@ -11,7 +11,7 @@
 } {
     party_id:integer,notnull
 } -properties {
-    context_bar:onevalue
+    context:onevalue
     party_id:onevalue
     party_name:onevalue
     admin_p:onevalue
@@ -49,26 +49,25 @@
 set object_type_path_list [subsite::util::object_type_path_list $party_type party]
 
 set redirects_for_type [list \
-	group "groups/one.tcl?group_id=$party_id" \
-	rel_segment "rel-segments/one.tcl?segment_id=$party_id"]
+	group "groups/one?group_id=$party_id" \
+	rel_segment "rel-segments/one?segment_id=$party_id"]
 
 foreach {type url} $redirects_for_type {
     if {[lsearch $object_type_path_list $type] != -1} {
 	ad_returnredirect [ad_conn package_url]admin/$url
+        ad_script_abort
     }
 }
 
 set user_id [ad_conn user_id]
 set write_p [ad_permission_p $party_id "write"]
 set admin_p [ad_permission_p $party_id "admin"]
 
-set context_bar [list [list "" "Parties"] "One Party"]
+set context [list [list "" "Parties"] "One Party"]
 
 attribute::multirow \
 	-start_with party \
 	-datasource_name attributes \
 	-object_type $party_type \
 	$party_id
 
-ad_return_template
-