Index: openacs.org-dev/packages/acs-subsite/www/admin/parties/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-subsite/www/admin/parties/new.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-subsite/www/admin/parties/new.tcl	9 Jul 2002 17:34:59 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-subsite/www/admin/parties/new.tcl	8 Oct 2002 15:46:48 -0000	1.1.1.2
@@ -17,12 +17,12 @@
     {add_with_rel_type "membership_rel"}
     {group_rel_type_list ""}
 } -properties {
-    context_bar:onevalue
+    context:onevalue
     party_type_pretty_name:onevalue
     attributes:multirow
 }
 
-set context_bar [list [list "" "Parties"] "Add a party"]
+set context [list [list "" "Parties"] "Add a party"]
 
 if {[empty_string_p $add_to_group_id]} {
     set add_to_group_id [application_group::group_id_from_package_id]
@@ -131,9 +131,9 @@
 set object_type_path_list [subsite::util::object_type_path_list $party_type party]
 
 set redirects_for_type [list \
-	group "groups/new.tcl?group_id=$party_id&group_type_exact_p=$party_type_exact_p&group_type=$party_type&[ad_export_vars -exclude {party_id party_type_exact_p party_type} $export_var_list]" \
-	rel_segment "rel-segments/new.tcl?segment_id=$party_id&group_id=$add_to_group_id" \
-	user "users/new.tcl?user_id=$party_id&[ad_export_vars -exclude {party_id party_type_exact_p party_type} $export_var_list]"]
+	group "groups/new?group_id=$party_id&group_type_exact_p=$party_type_exact_p&group_type=$party_type&[ad_export_vars -exclude {party_id party_type_exact_p party_type} $export_var_list]" \
+	rel_segment "rel-segments/new?segment_id=$party_id&group_id=$add_to_group_id" \
+	user "users/new?user_id=$party_id&[ad_export_vars -exclude {party_id party_type_exact_p party_type} $export_var_list]"]
 
 foreach {type url} $redirects_for_type {
     if {[lsearch $object_type_path_list $type] != -1} {
@@ -196,7 +196,7 @@
 	set next_group_id [lindex $group_rel_type 0]
 	set next_rel_type [lindex $group_rel_type 1]
 	lappend return_url_list \
-		"../relations/add.tcl?group_id=$next_group_id&rel_type=[ad_urlencode $next_rel_type]&party_id=$party_id&allow_out_of_scope_p=t"
+		"../relations/add?group_id=$next_group_id&rel_type=[ad_urlencode $next_rel_type]&party_id=$party_id&allow_out_of_scope_p=t"
     }
 
     # Add the original return_url as the last one in the list