Index: openacs-4/contrib/obsolete-packages/ticket-tracker/www/admin/option-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker/www/admin/option-add.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/ticket-tracker/www/admin/option-add.tcl	6 Sep 2002 06:57:05 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/ticket-tracker/www/admin/option-add.tcl	18 Sep 2002 14:55:01 -0000	1.3
@@ -26,7 +26,7 @@
 set option_id ""
 
 set submit "Add"
-set target "option-add-2.tcl"
+set target "option-add-2"
 set action_bar ""
 
 ad_return_template "option-ae"
Index: openacs-4/contrib/obsolete-packages/wap/tcl/wap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/wap/tcl/wap-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/wap/tcl/wap-procs.tcl	10 Sep 2002 22:23:28 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/wap/tcl/wap-procs.tcl	18 Sep 2002 14:55:02 -0000	1.3
@@ -109,7 +109,7 @@
     Generate a logout link for a wml browser.
 } {
     set return_wml "<do type=\"accept\" label=\"Logout\">
-    <go href=\"/register/logout.tcl\"/>
+    <go href=\"/register/logout\"/>
     </do>"
 
     return $return_wml
Index: openacs-4/contrib/obsolete-packages/wap/www/admin/add-ua.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/wap/www/admin/add-ua.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/wap/www/admin/add-ua.tcl	20 Apr 2001 20:51:23 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/wap/www/admin/add-ua.tcl	18 Sep 2002 14:55:03 -0000	1.2
@@ -12,15 +12,15 @@
 set header "
 [ad_header "Add WAP User Agent"]
 <h2>Add WAP User Agent</h2>
-[ad_context_bar_ws_or_index [list index.tcl "WAP Admin"] "Add User Agent"]
+[ad_context_bar_ws_or_index [list "./" "WAP Admin"] "Add User Agent"]
 <hr>
 "
 
 set active_p_select "<select name=active_p>
 <option value=t>Active
 <option value=f>Inactive</select>"
 
-set form_action_target "add-ua-2.tcl"
+set form_action_target "add-ua-2"
 
 set footer "[ad_footer]"
 
Index: openacs-4/contrib/obsolete-packages/wap/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/wap/www/admin/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/wap/www/admin/index.tcl	20 Apr 2001 20:51:23 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/wap/www/admin/index.tcl	18 Sep 2002 14:55:03 -0000	1.2
@@ -39,7 +39,7 @@
     { creation_comment "Comment" }
     { last_modified "Last Modified On" }
     { modifying_user_name "Modified By" }
-    { action "Action" {no_sort} {<td><a href=modify-ua.tcl?[export_url_vars user_agent_id]&action=modify>Modify</a> | <a href=modify-ua.tcl?[export_url_vars user_agent_id]&action=delete>Delete</a></td>}}
+    { action "Action" {no_sort} {<td><a href=modify-ua?[export_url_vars user_agent_id]&action=modify>Modify</a> | <a href=modify-ua?[export_url_vars user_agent_id]&action=delete>Delete</a></td>}}
 }
 
 set sql_query "select wap.user_agent_id, 
@@ -74,7 +74,7 @@
 append non_wap_content "
 [ad_table -Torderby $orderby "UserAgentQuery" $sql_query $table_def] 
 
-<h3><a href=add-ua.tcl>Add a User Agent</a></h3>
+<h3><a href=add-ua>Add a User Agent</a></h3>
 "
 
 set footer [ad_footer]
Index: openacs-4/contrib/obsolete-packages/wap/www/admin/modify-ua.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/wap/www/admin/modify-ua.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/wap/www/admin/modify-ua.tcl	18 Sep 2002 13:05:15 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/wap/www/admin/modify-ua.tcl	18 Sep 2002 14:55:03 -0000	1.3
@@ -13,7 +13,7 @@
 set header "
 [ad_header "Modify WAP User Agent"]
 <h2>Modify WAP User Agent</h2>
-[ad_context_bar_ws_or_index [list "index.tcl" "WAP Admin"] "Modify WAP User Agent"]
+[ad_context_bar_ws_or_index [list "./" "WAP Admin"] "Modify WAP User Agent"]
 <hr>"
 
 switch $action {
@@ -41,7 +41,7 @@
 set active_p_select "<select name=active_p>
 <option value=t>Active
 <option value=f>Inactive</select>"
-set form_action "modify-ua-2.tcl"
+set form_action "modify-ua-2"
 set form_hidden_var "<input type=hidden name=user_agent_id value=$user_agent_id>"
 set footer [ad_footer]
 
Index: openacs-4/packages/acs-admin/www/apm/file-watch.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/file-watch.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/apm/file-watch.tcl	10 Sep 2002 22:21:59 -0000	1.4
+++ openacs-4/packages/acs-admin/www/apm/file-watch.tcl	18 Sep 2002 14:54:45 -0000	1.5
@@ -32,7 +32,7 @@
 
 # Why did we need all that information? -KS
 
-doc_body_append "[apm_header -form "method=post action=\"file-add-2.tcl\"" [list "version-view?version_id=$version_id" "$pretty_name $version_name"] [list "version-files?version_id=$version_id" "Files"] "Watch file"]
+doc_body_append "[apm_header -form "method=post action=\"file-add-2\"" [list "version-view?version_id=$version_id" "$pretty_name $version_name"] [list "version-files?version_id=$version_id" "Files"] "Watch file"]
 
 "
 
Index: openacs-4/packages/acs-admin/www/apm/version-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-edit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-admin/www/apm/version-edit.tcl	10 Sep 2002 22:21:59 -0000	1.3
+++ openacs-4/packages/acs-admin/www/apm/version-edit.tcl	18 Sep 2002 14:54:45 -0000	1.4
@@ -18,7 +18,7 @@
     from apm_package_version_info where version_id = :version_id
 }
 
-doc_body_append "[apm_header -form "action=\"version-edit-2.tcl\" method=post" [list "version-view?version_id=$version_id" "$pretty_name $version_name"] "Edit a Version"]
+doc_body_append "[apm_header -form "action=\"version-edit-2\" method=post" [list "version-view?version_id=$version_id" "$pretty_name $version_name"] "Edit a Version"]
 
 "
 
Index: openacs-4/packages/acs-admin/www/apm/version-files.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-files.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-admin/www/apm/version-files.tcl	10 Sep 2002 22:21:59 -0000	1.6
+++ openacs-4/packages/acs-admin/www/apm/version-files.tcl	18 Sep 2002 14:54:45 -0000	1.7
@@ -19,7 +19,7 @@
 
 if { $remove_files_p == 1 } {
     # This is really a "remove multiple files" page.
-    set form "action=\"file-remove.tcl\" method=post"
+    set form "action=\"file-remove\" method=post"
     set apm_header_args [list [list "version-files?version_id=$version_id" "Files"] "Remove Files"]
 } else {
     set form ""
Index: openacs-4/packages/acs-admin/www/test/signed-cookies-test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/test/Attic/signed-cookies-test.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/test/signed-cookies-test.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-admin/www/test/signed-cookies-test.tcl	18 Sep 2002 14:54:46 -0000	1.2
@@ -18,6 +18,6 @@
 [ad_header "Signed Cookies Test Page"]
 
 
-cookies set. <a href=\"signed-cookies-test-2.tcl\">test it out</a>.
+cookies set. <a href=\"signed-cookies-test-2\">test it out</a>.
 
 [ad_footer]"
\ No newline at end of file
Index: openacs-4/packages/acs-admin/www/users/member-state-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/member-state-change.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-admin/www/users/member-state-change.tcl	10 Sep 2002 22:22:03 -0000	1.8
+++ openacs-4/packages/acs-admin/www/users/member-state-change.tcl	18 Sep 2002 14:54:47 -0000	1.9
@@ -65,7 +65,7 @@
     }
     "f" {
 	set action "Require Email from $name"
-	set email_message "Your email in [ad_system_name] needs approval. please go to [ad_url]/register/email-confirm.tcl?[export_url_vars row_id]"
+	set email_message "Your email in [ad_system_name] needs approval. please go to [ad_url]/register/email-confirm?[export_url_vars row_id]"
     }
 }
 
Index: openacs-4/packages/acs-admin/www/users/sessions-one-month.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/Attic/sessions-one-month.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/users/sessions-one-month.tcl	6 Sep 2002 21:49:53 -0000	1.2
+++ openacs-4/packages/acs-admin/www/users/sessions-one-month.tcl	18 Sep 2002 14:54:47 -0000	1.3
@@ -7,7 +7,7 @@
 
 <h2>$pretty_month $pretty_year</h2>
 
-[ad_context_bar [list "./" "Users"] [list "session-history.tcl" "Session History"] "One Month"]
+[ad_context_bar [list "./" "Users"] [list "session-history" "Session History"] "One Month"]
 
 <hr>
 
Index: openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl	13 Sep 2002 13:47:30 -0000	1.2
+++ openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl	18 Sep 2002 14:54:48 -0000	1.3
@@ -32,7 +32,7 @@
 
 if { [string match "*..*" $url] || [string match "*..*" $package_key] } {
     ad_return_error "Can't back up beyond the pageroot" "You can't use display-sql.tcl to look at files underneath the pageroot."
-    return -code return 
+    ad_script_abort
 }
 
 if {[exists_and_not_null package_key]} {
Index: openacs-4/packages/acs-developer-support/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-developer-support/www/index.tcl	8 Jul 2002 09:38:18 -0000	1.2
+++ openacs-4/packages/acs-developer-support/www/index.tcl	18 Sep 2002 14:54:48 -0000	1.3
@@ -49,7 +49,7 @@
     }
 }
 if { !$includes_this_ip_p } {
-    doc_body_append "<li><a href=\"add-ip.tcl?ip=[ad_conn peeraddr]\">add your IP, [ad_conn peeraddr]</a>\n"
+    doc_body_append "<li><a href=\"add-ip?ip=[ad_conn peeraddr]\">add your IP, [ad_conn peeraddr]</a>\n"
 }
 
 set requests [nsv_array names ds_request]
Index: openacs-4/packages/acs-subsite/www/admin/groups/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/new.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/groups/new.tcl	6 Sep 2002 21:49:59 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/groups/new.tcl	18 Sep 2002 14:54:49 -0000	1.4
@@ -150,7 +150,7 @@
 	set next_group_id [lindex $group_rel_type 0]
 	set next_rel_type [lindex $group_rel_type 1]
 	lappend return_url_list \
-		"${package_url}admin/relations/add.tcl?group_id=$next_group_id&rel_type=[ad_urlencode $next_rel_type]&party_id=$group_id&allow_out_of_scope_p=t"
+		"${package_url}admin/relations/add?group_id=$next_group_id&rel_type=[ad_urlencode $next_rel_type]&party_id=$group_id&allow_out_of_scope_p=t"
     }
 
     # Add the original return_url as the last one in the list
Index: openacs-4/packages/acs-subsite/www/admin/host-node-map/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/host-node-map/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/host-node-map/index.tcl	16 Sep 2002 23:24:36 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/host-node-map/index.tcl	18 Sep 2002 14:54:50 -0000	1.4
@@ -50,7 +50,7 @@
 $table
 </table>
 <h3>Add another hostname/URL pair</h3>
-<form method=get action=add.tcl>
+<form method=get action=add>
 <table border>
 <tr>
   <th>Hostname</th>
Index: openacs-4/packages/acs-subsite/www/admin/parties/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/parties/new.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/parties/new.tcl	6 Sep 2002 21:50:00 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/parties/new.tcl	18 Sep 2002 14:54:52 -0000	1.3
@@ -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
Index: openacs-4/packages/acs-subsite/www/admin/parties/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/parties/one.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/parties/one.tcl	18 Sep 2002 12:16:41 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/parties/one.tcl	18 Sep 2002 14:54:52 -0000	1.4
@@ -49,8 +49,8 @@
 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} {
Index: openacs-4/packages/acs-subsite/www/admin/relations/add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/add.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/relations/add.tcl	6 Sep 2002 21:50:04 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/relations/add.tcl	18 Sep 2002 14:54:52 -0000	1.5
@@ -122,7 +122,7 @@
 set party_type_exact_p f
 set add_to_group_id $group_id
 set add_with_rel_type $rel_type
-set add_party_url "[ad_conn package_url]admin/parties/new.tcl?[ad_export_vars {add_to_group_id add_with_rel_type party_type party_type_exact_p}]"
+set add_party_url "[ad_conn package_url]admin/parties/new?[ad_export_vars {add_to_group_id add_with_rel_type party_type party_type_exact_p}]"
 
 # Build a url used to select an existing party from the system (as opposed
 # to limiting the selection to parties on the current subsite).
Index: openacs-4/packages/acs-subsite/www/admin/users/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/users/new.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/users/new.tcl	6 Sep 2002 21:50:05 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/users/new.tcl	18 Sep 2002 14:54:54 -0000	1.4
@@ -194,7 +194,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=$user_id&allow_out_of_scope_p=t"
+		"../relations/add?group_id=$next_group_id&rel_type=[ad_urlencode $next_rel_type]&party_id=$user_id&allow_out_of_scope_p=t"
     }
 
     # Add the original return_url as the last one in the list
@@ -203,7 +203,7 @@
     set return_url_stacked [subsite::util::return_url_stack $return_url_list]
 
     if {[empty_string_p $return_url_stacked]} {
-	set return_url_stacked "../parties/one.tcl?party_id=$user_id"
+	set return_url_stacked "../parties/one?party_id=$user_id"
     }
     ad_returnredirect $return_url_stacked
 
@@ -240,7 +240,7 @@
 	    ns_sendmail [template::element::get_value add_user email] \
 		    $notification_address \
 		    "Welcome to [ad_system_name]" \
-		    "To confirm your registration, please go to [ad_parameter -package_id [ad_acs_kernel_id] SystemURL]/register/email-confirm.tcl?[export_url_vars row_id].
+		    "To confirm your registration, please go to [ad_parameter -package_id [ad_acs_kernel_id] SystemURL]/register/email-confirm?[export_url_vars row_id]
 
 After confirming your email, here's how you can log in at [ad_url]:
 
Index: openacs-4/packages/acs-subsite/www/user/portrait/erase-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/Attic/erase-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/user/portrait/erase-2.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/user/portrait/erase-2.tcl	18 Sep 2002 14:54:54 -0000	1.2
@@ -33,7 +33,7 @@
    and rel_type = 'user_portrait_rel')"
 
 if [empty_string_p $return_url] {
-    set return_url "/pvt/home.tcl"
+    set return_url "/pvt/home"
 }
 
 ad_returnredirect $return_url
Index: openacs-4/packages/acs-subsite/www/user/portrait/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/user/portrait/index.tcl	6 Sep 2002 21:50:14 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/user/portrait/index.tcl	18 Sep 2002 14:54:54 -0000	1.3
@@ -47,9 +47,9 @@
 and a.rel_type = 'user_portrait_rel'"] || [empty_string_p $revision_id]} {
     # The user doesn't have a portrait yet
     if {$admin_p} {
-	set message "This user doesn't have a portrait yet.  You can <a href=\"upload.tcl?[export_url_vars user_id return_url]\">go upload the user's portrait</a>."
+	set message "This user doesn't have a portrait yet.  You can <a href=\"upload?[export_url_vars user_id return_url]\">go upload the user's portrait</a>."
     } else {
-	set message "You don't have a portrait yet. You can <a href=\"upload.tcl?[export_url_vars return_url]\">go upload your portrait</a>"
+	set message "You don't have a portrait yet. You can <a href=\"upload?[export_url_vars return_url]\">go upload your portrait</a>"
     }
     
     ad_return_error "No Portrait" "$message"
@@ -67,7 +67,7 @@
 "} errmsg] {
     # There was an error obtaining the picture information
 
-    ad_return_error "Invalid Picture" "The picture of you in the system is invalid. Please <a href=\"upload.tcl\">upload</a> another picture."
+    ad_return_error "Invalid Picture" "The picture of you in the system is invalid. Please <a href=\"upload\">upload</a> another picture."
     return
 }
 
Index: openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	19 Jul 2002 23:17:15 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	18 Sep 2002 14:54:55 -0000	1.6
@@ -531,7 +531,7 @@
     append return_string "
     <TABLE border=0 cellpadding=0 cellspacing=0 height=24 width=\"100%\">
        <TR bgcolor=\"#000066\"><TD align=left valign=bottom><A href=#top onMouseOver=\"hiLite('back_to_top')\" onMouseOut=\"unhiLite('back_to_top')\"><img name=\"back_to_top\" src=\"/graphics/24_back_to_top.gif\" border=0 width=200 height=24 alt=\"top\"></A></TD>
-         <TD align=right valign=bottom><A href=\"[ad_parameter GlobalURLStub "" "/global"]/rules.tcl\" onMouseOver=\"hiLite('rules')\" onMouseOut=\"unhiLite('rules')\"><img name=\"rules\" src=\"/graphics/rules.gif\" border=0 width=96 height=24 valign=bottom alt=\"rules\"></A><A href=\"[ad_help_link $section]\" onMouseOver=\"hiLite('help')\" onMouseOut=\"unhiLite('help')\"><img name=\"help\" src=\"/graphics/help.gif\" border=0 width=30 height=24 align=bottom alt=\"help\"></A></TD></TR>
+         <TD align=right valign=bottom><A href=\"[ad_parameter GlobalURLStub "" "/global"]/rules\" onMouseOver=\"hiLite('rules')\" onMouseOut=\"unhiLite('rules')\"><img name=\"rules\" src=\"/graphics/rules.gif\" border=0 width=96 height=24 valign=bottom alt=\"rules\"></A><A href=\"[ad_help_link $section]\" onMouseOver=\"hiLite('help')\" onMouseOut=\"unhiLite('help')\"><img name=\"help\" src=\"/graphics/help.gif\" border=0 width=30 height=24 align=bottom alt=\"help\"></A></TD></TR>
     </TABLE>"
     return $return_string
 }
Index: openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/table-display-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	18 Sep 2002 12:10:44 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	18 Sep 2002 14:54:55 -0000	1.8
@@ -256,14 +256,14 @@
     set table_def { 
         {ffn "Full Name" 
             {upper(last_name) $order, upper(first_names) $order}
-            {&lt;td&gt;&lt;a href="/admin/users/one.tcl?user_id=$user_id"&gt;$first_names&nbsp;$last_name&lt;/a&gt;&lt;/td&gt;}}
+            {&lt;td&gt;&lt;a href="/admin/users/one?user_id=$user_id"&gt;$first_names&nbsp;$last_name&lt;/a&gt;&lt;/td&gt;}}
         {email "e-Mail" {} {&lt;td&gt;&lt;a href="mailto:$email"&gt;$email&lt;/a&gt;}}
         {email_bouncing_p "e-Bouncing?" {} tf}
         {user_state "State" {} {}}
         {last_visit "Last Visit" {} r}
         {actions "Actions" no_sort {&lt;td&gt;
-                &lt;a href="/admin/users/basic-info-update.tcl?user_id=$user_id"&gt;Edit Info&lt;/a&gt; | 
-                &lt;a href="/admin/users/password-update.tcl?user_id=$user_id"&gt;New Password&lt;/a&gt; |
+                &lt;a href="/admin/users/basic-info-update?user_id=$user_id"&gt;Edit Info&lt;/a&gt; | 
+                &lt;a href="/admin/users/password-update?user_id=$user_id"&gt;New Password&lt;/a&gt; |
             [ad_registration_finite_state_machine_admin_links $user_state $user_id]}}
     }
     </pre>
Index: openacs-4/packages/adserver/tcl/adserver-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/adserver/tcl/adserver-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/adserver/tcl/adserver-procs.tcl	18 Sep 2002 12:11:27 -0000	1.2
+++ openacs-4/packages/adserver/tcl/adserver-procs.tcl	18 Sep 2002 14:54:56 -0000	1.3
@@ -426,7 +426,7 @@
     Returns href attribute.  
 
  } {
-     set ad_url "[ad_acs_adserver_url]adhref.tcl?adv_key=[ad_urlencode $adv_key]"
+     set ad_url "[ad_acs_adserver_url]adhref?adv_key=[ad_urlencode $adv_key]"
      if {$suppress_logging_p == 1} {
          append ad_url "&suppress_logging_p=1"
      }
@@ -443,7 +443,7 @@
 
     Passes suppress_logging to adserver_image_url to build the url.
  } {
-     set ad_url "[ad_acs_adserver_url]adimg.tcl?adv_key=[ad_urlencode $adv_key]"
+     set ad_url "[ad_acs_adserver_url]adimg?adv_key=[ad_urlencode $adv_key]"
      if {$suppress_logging_p == 1} {
          append ad_url "&suppress_logging_p=1"
      }
Index: openacs-4/packages/bookmarks/www/top-frame.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookmarks/www/top-frame.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/bookmarks/www/top-frame.tcl	10 Sep 2002 22:22:26 -0000	1.2
+++ openacs-4/packages/bookmarks/www/top-frame.tcl	18 Sep 2002 14:54:57 -0000	1.3
@@ -28,19 +28,19 @@
 </head>
 <body>
 <center><table width=100%cellpadding=0 border=0 cellspacing=0><tr><td>
-<form target=target_frame action=search.tcl><table width=100% cellpadding=1 border=0 bgcolor=#f3f3f3>
+<form target=target_frame action=search><table width=100% cellpadding=1 border=0 bgcolor=#f3f3f3>
 [export_form_vars viewed_user_id]
 <tr>
-[ad_decode $write_p "t" "<td bgcolor=#cccccc align=center valign=middle><font size=-1 face=arial, helvetica><b><a target=main href=bookmark-add-import.tcl?viewed_user_id=$viewed_user_id&return_url=$return_url>Add/Import</a></td>" ""]
-[ad_decode $browsing_user_id $viewed_user_id "<td bgcolor=#cccccc align=center valign=middle><font size=-1 face=arial, helvetica><b><a target=new href=bookmarks-export.tcl?viewed_user_id=$viewed_user_id>Export</a></td>" ""]
-[ad_decode $write_p "t" "<td bgcolor=#cccccc align=center valign=middle><font size=-1 face=arial, helvetica><b><a target=main href=folder-add.tcl?viewed_user_id=$viewed_user_id&return_url=$return_url>New Folder</a></td>" ""]
+[ad_decode $write_p "t" "<td bgcolor=#cccccc align=center valign=middle><font size=-1 face=arial, helvetica><b><a target=main href=bookmark-add-import?viewed_user_id=$viewed_user_id&return_url=$return_url>Add/Import</a></td>" ""]
+[ad_decode $browsing_user_id $viewed_user_id "<td bgcolor=#cccccc align=center valign=middle><font size=-1 face=arial, helvetica><b><a target=new href=bookmarks-export?viewed_user_id=$viewed_user_id>Export</a></td>" ""]
+[ad_decode $write_p "t" "<td bgcolor=#cccccc align=center valign=middle><font size=-1 face=arial, helvetica><b><a target=main href=folder-add?viewed_user_id=$viewed_user_id&return_url=$return_url>New Folder</a></td>" ""]
 </tr>
 </table></td></tr><tr><td>
 <table width=100% cellpadding=1 border=0 bgcolor=#f3f3f3>
 <input type=hidden name=return_url value=$return_url>
 <tr>
-<td bgcolor=#cccccc align=center valign=middle><font size=-1 face=arial, helvetica><b><a target=main href=tree-frame.tcl?viewed_user_id=$viewed_user_id>Refresh</a></td>
-<td bgcolor=#cccccc align=center valign=middle><font size=-1 face=arial, helvetica><b><a target=new href=index.tcl?viewed_user_id=$viewed_user_id>Main</a></td>
+<td bgcolor=#cccccc align=center valign=middle><font size=-1 face=arial, helvetica><b><a target=main href=tree-frame?viewed_user_id=$viewed_user_id>Refresh</a></td>
+<td bgcolor=#cccccc align=center valign=middle><font size=-1 face=arial, helvetica><b><a target=new href=index?viewed_user_id=$viewed_user_id>Main</a></td>
 <td bgcolor=#cccccc colspan=2 align=center valign=middle><font size=-1 face=arial, helvetica><b>Search <input size=10 name=search_text></td>
 </tr>
 </form>
Index: openacs-4/packages/page/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/page/www/admin/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/page/www/admin/index.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/packages/page/www/admin/index.tcl	18 Sep 2002 14:54:57 -0000	1.2
@@ -30,7 +30,7 @@
 [ad_context_bar]
 <hr>
 
-<form method=post action=content-update.tcl>
+<form method=post action=\"content-update\">
 
 <table align=center>
 
Index: openacs-4/packages/schema-browser/www/function-body.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/www/function-body.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/schema-browser/www/function-body.tcl	10 Sep 2002 22:23:21 -0000	1.2
+++ openacs-4/packages/schema-browser/www/function-body.tcl	18 Sep 2002 14:54:59 -0000	1.3
@@ -16,7 +16,7 @@
 set html "[ad_header "[ad_system_name]  One Trigger's Function Body "]
 
 <h2>[ad_system_name] Schema Browser</h2>
-[ad_context_bar_ws [list index.tcl "Schema Browser"] "One Trigger's Function Body"]
+[ad_context_bar_ws [list "./" "Schema Browser"] "One Trigger's Function Body"]
 "
 
 
Index: openacs-4/packages/schema-browser/www/trigger.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/www/trigger.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/schema-browser/www/trigger.tcl	10 Sep 2002 22:23:21 -0000	1.2
+++ openacs-4/packages/schema-browser/www/trigger.tcl	18 Sep 2002 14:54:59 -0000	1.3
@@ -15,7 +15,7 @@
 set html "[ad_header "[ad_system_name]  One trigger "]
 
 <h2>[ad_system_name] Schema Browser</h2>
-[ad_context_bar_ws [list index.tcl "Schema Browser"] "One Trigger"]
+[ad_context_bar_ws [list "./" "Schema Browser"] "One Trigger"]
 "
 
 
Index: openacs-4/packages/simple-survey/www/admin/description-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/description-edit-2.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/simple-survey/www/admin/description-edit-2.tcl	18 Sep 2002 12:14:55 -0000	1.5
+++ openacs-4/packages/simple-survey/www/admin/description-edit-2.tcl	18 Sep 2002 14:55:00 -0000	1.6
@@ -35,7 +35,7 @@
 }
 
 if {$checked_p == "f"} {
-    set context [list [list "one.tcl?[export_url_vars survey_id]" "Administer Survey"] "Confirm Description"]
+    set context [list [list "one?[export_url_vars survey_id]" "Administer Survey"] "Confirm Description"]
 
     switch $desc_html {
 	"t" {
Index: openacs-4/packages/simple-survey/www/admin/edit-logic.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/edit-logic.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/simple-survey/www/admin/edit-logic.tcl	10 Sep 2002 22:23:23 -0000	1.3
+++ openacs-4/packages/simple-survey/www/admin/edit-logic.tcl	18 Sep 2002 14:55:00 -0000	1.4
@@ -41,7 +41,7 @@
 doc_return 200 text/html "[ad_header "Edit Survey Logic"]
 <h2>$survey_name</h2>
 
-[ad_context_bar [list "index.tcl" "Simple Survey Admin"] [list "one.tcl?[export_url_vars survey_id]" "Administer Survey"] "Edit Logic"]
+[ad_context_bar [list "./" "Simple Survey Admin"] [list "one?[export_url_vars survey_id]" "Administer Survey"] "Edit Logic"]
     
 <hr>
 
Index: openacs-4/packages/simple-survey/www/admin/question-modify-text.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/question-modify-text.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/simple-survey/www/admin/question-modify-text.tcl	10 Sep 2002 22:23:23 -0000	1.4
+++ openacs-4/packages/simple-survey/www/admin/question-modify-text.tcl	18 Sep 2002 14:55:00 -0000	1.5
@@ -24,4 +24,4 @@
 from survsimp_questions
 where question_id = :question_id" ]
 
-set context [list [list "one.tcl?[export_url_vars survey_id]" "Administer Survey"] "Modify a Question's Text"]
+set context [list [list "one?[export_url_vars survey_id]" "Administer Survey"] "Modify a Question's Text"]
Index: openacs-4/packages/simple-survey/www/admin/survey-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/survey-toggle.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/simple-survey/www/admin/survey-toggle.tcl	10 Sep 2002 22:23:23 -0000	1.2
+++ openacs-4/packages/simple-survey/www/admin/survey-toggle.tcl	18 Sep 2002 14:55:00 -0000	1.3
@@ -12,7 +12,7 @@
 } {
     survey_id:integer
     enabled_p
-    {target "index.tcl"}
+    {target "./"}
 }
 
 ad_require_permission $survey_id survsimp_admin_survey
Index: openacs-4/packages/survey/www/admin/description-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/description-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/survey/www/admin/description-edit.tcl	18 Sep 2002 12:15:21 -0000	1.2
+++ openacs-4/packages/survey/www/admin/description-edit.tcl	18 Sep 2002 14:55:01 -0000	1.3
@@ -51,6 +51,6 @@
     ad_script_abort
 }
 
-set context_bar [ad_context_bar [list "one.tcl?[export_url_vars survey_id]" $survey_info(name)] "Edit Description"]
+set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "Edit Description"]
 
 ad_return_template
Index: openacs-4/packages/survey/www/admin/respondents.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/respondents.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey/www/admin/respondents.tcl	16 Sep 2002 00:00:24 -0000	1.1
+++ openacs-4/packages/survey/www/admin/respondents.tcl	18 Sep 2002 14:55:01 -0000	1.2
@@ -25,7 +25,7 @@
 get_survey_info -survey_id $survey_id
 set survey_name $survey_info(name)
 
-set context_bar [ad_context_bar [list "one.tcl?[export_url_vars survey_id]" $survey_info(name)] "Respondents"]
+set context_bar [ad_context_bar [list "one?[export_url_vars survey_id]" $survey_info(name)] "Respondents"]
 
 set table_def {
     {first_names "First Name" {upper(first_names) $order} {<td><a href="one-respondent?[export_vars {user_id survey_id}]">$first_names</a></td>}}
Index: openacs-4/packages/survey/www/admin/survey-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-toggle.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey/www/admin/survey-toggle.tcl	16 Sep 2002 00:00:25 -0000	1.1
+++ openacs-4/packages/survey/www/admin/survey-toggle.tcl	18 Sep 2002 14:55:01 -0000	1.2
@@ -12,7 +12,7 @@
 } {
     survey_id:integer
     enabled_p
-    {target "index.tcl"}
+    {target "./"}
 }
 
 ad_require_permission $survey_id survey_admin_survey
Index: openacs-4/packages/webmail/tcl/wm-filter-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/tcl/wm-filter-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/webmail/tcl/wm-filter-procs.tcl	18 Sep 2002 12:17:43 -0000	1.2
+++ openacs-4/packages/webmail/tcl/wm-filter-procs.tcl	18 Sep 2002 14:55:04 -0000	1.3
@@ -24,7 +24,7 @@
 
 
 ad_proc wm_build_view_sql { user_id view_id } {
-    Builds the inner part of the complex index-view.tcl query
+    Builds the inner part of the complex index-view query
     for the specified view.
     If you pass view_id as -1, it will attempt to get the view from 
     the client's browser properties (used for the "Custom View")
Index: openacs-4/packages/webmail/www/folder-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/folder-create.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail/www/folder-create.tcl	20 Apr 2001 20:51:23 -0000	1.1
+++ openacs-4/packages/webmail/www/folder-create.tcl	18 Sep 2002 14:55:05 -0000	1.2
@@ -13,6 +13,6 @@
 }
 
 
-set context [ad_context_bar_ws [list "index.tcl" "WebMail"] "Create New Folder"]
+set context [ad_context_bar_ws [list "./" "WebMail"] "Create New Folder"]
 
 ad_return_template
Index: openacs-4/packages/webmail/www/folder-index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/folder-index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/webmail/www/folder-index.tcl	10 Sep 2002 22:23:29 -0000	1.2
+++ openacs-4/packages/webmail/www/folder-index.tcl	18 Sep 2002 14:55:05 -0000	1.3
@@ -62,7 +62,7 @@
 set message_total [util_commify_number $message_total]
 set size_total [util_commify_number $size_total]
 
-set target "folder-index.tcl"
+set target "folder-index"
 
 ad_return_template 
 
Index: openacs-4/packages/webmail/www/process-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/process-search.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/webmail/www/process-search.tcl	18 Sep 2002 12:17:44 -0000	1.3
+++ openacs-4/packages/webmail/www/process-search.tcl	18 Sep 2002 14:55:05 -0000	1.4
@@ -65,6 +65,6 @@
     append form_vars [export_form_vars "comp_object.$i" "comp_type.$i" "comp_string.$i"]
 }
 
-set context [ad_context_bar_ws [list "index.tcl" "WebMail"] "Save view"]
+set context [ad_context_bar_ws [list "./" "WebMail"] "Save view"]
 
 ad_return_template
\ No newline at end of file
Index: openacs-4/packages/webmail/www/admin/admin-choose.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/admin/admin-choose.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail/www/admin/admin-choose.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/webmail/www/admin/admin-choose.tcl	18 Sep 2002 14:55:06 -0000	1.2
@@ -16,7 +16,7 @@
 doc_return 200 text/html "[ad_admin_header "Choose Admin"]
 <h2>$full_domain_name</h2>
 
-[ad_admin_context_bar [list "index.tcl" "WebMail Admin"] [list "domain-one.tcl?[export_url_vars short_name]" "One Domain"] "Choose Admin"]
+[ad_admin_context_bar [list "./" "WebMail Admin"] [list "domain-one?[export_url_vars short_name]" "One Domain"] "Choose Admin"]
 
 <hr>
 <br>
Index: openacs-4/packages/webmail/www/admin/delete-user-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/admin/delete-user-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/webmail/www/admin/delete-user-2.tcl	18 Sep 2002 12:17:45 -0000	1.2
+++ openacs-4/packages/webmail/www/admin/delete-user-2.tcl	18 Sep 2002 14:55:06 -0000	1.3
@@ -20,7 +20,7 @@
 	set result "[ad_admin_header "Delete User"]
 	<h2>Delete User</h2>
 	
-	[ad_admin_context_bar [list "index.tcl" "WebMail Admin"] "One Domain"]
+	[ad_admin_context_bar [list "./" "WebMail Admin"] "One Domain"]
 	
 	<hr><br>
 	<b>We received the following error:</b>
Index: openacs-4/packages/webmail/www/admin/delete-user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/admin/delete-user.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail/www/admin/delete-user.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/webmail/www/admin/delete-user.tcl	18 Sep 2002 14:55:06 -0000	1.2
@@ -23,14 +23,14 @@
 doc_return 200 text/html "[ad_admin_header "Delete User"]
 <h2>Delete User</h2>
 
-[ad_admin_context_bar [list "index.tcl" "WebMail Admin"] "One Domain"]
+[ad_admin_context_bar [list "./" "WebMail Admin"] "One Domain"]
 
 <hr>
 <br>
 Really delete the webmail account for  <b>$full_name: $email</b>?<br>
 This will delete all associated mailboxes and messages.
 
-<form action=\"delete-user-2.tcl\">
+<form action=\"delete-user-2\">
 [export_form_vars short_name user_id]
 <input type=submit name=action value=Delete>&nbsp;&nbsp;
 <input type=submit name=action value=Cancel>
Index: openacs-4/packages/webmail/www/admin/domain-add-user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/admin/domain-add-user.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail/www/admin/domain-add-user.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/webmail/www/admin/domain-add-user.tcl	18 Sep 2002 14:55:06 -0000	1.2
@@ -19,7 +19,7 @@
 doc_return 200 text/html "[ad_admin_header "Add User"]
 <h2>$full_domain_name</h2>
 
-[ad_admin_context_bar [list "index.tcl" "WebMail Admin"] [list "domain-one.tcl?[export_url_vars short_name]" "One Domain"] "Create Account"]
+[ad_admin_context_bar [list "./" "WebMail Admin"] [list "domain-one?[export_url_vars short_name]" "One Domain"] "Create Account"]
 
 <hr>
 
Index: openacs-4/packages/webmail/www/admin/domain-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/admin/domain-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail/www/admin/domain-add.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/webmail/www/admin/domain-add.tcl	18 Sep 2002 14:55:06 -0000	1.2
@@ -11,7 +11,7 @@
 doc_return 200 text/html "[ad_admin_header "Add a Domain"]
 <h2>Add a Domain</h2>
 
-[ad_admin_context_bar [list "index.tcl" "WebMail Admin"] "Add Domain"]
+[ad_admin_context_bar [list "./" "WebMail Admin"] "Add Domain"]
 
 
 <hr>
Index: openacs-4/packages/webmail/www/admin/domain-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/admin/domain-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail/www/admin/domain-delete.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/webmail/www/admin/domain-delete.tcl	18 Sep 2002 14:55:06 -0000	1.2
@@ -17,14 +17,14 @@
 doc_return 200 text/html "[ad_admin_header "Delete Domain"]
 <h2>Delete Domain</h2>
 
-[ad_admin_context_bar [list "index.tcl" "WebMail Admin"] "Delete Domain"]
+[ad_admin_context_bar [list "./" "WebMail Admin"] "Delete Domain"]
 
 <hr>
 <br>
 Really delete the domain <b>$full_domain_name</b>?</br>
 This will delete all associated email accounts.
 
-<form action=\"domain-delete-2.tcl\">
+<form action=\"domain-delete-2\">
 [export_form_vars short_name]
 <input type=submit name=action value=Delete>&nbsp;&nbsp;
 <input type=submit name=action value=Cancel>
Index: openacs-4/packages/webmail/www/admin/domain-one-user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/admin/domain-one-user.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail/www/admin/domain-one-user.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/webmail/www/admin/domain-one-user.tcl	18 Sep 2002 14:55:06 -0000	1.2
@@ -36,7 +36,7 @@
 doc_return 200 text/html "[ad_admin_header "One Domain"]
 <h2>$full_domain_name</h2>
 
-[ad_admin_context_bar [list "index.tcl" "WebMail Admin"] "domain-one?[export_url_vars short_name]" "One Domain"]
+[ad_admin_context_bar [list "./" "WebMail Admin"] "domain-one?[export_url_vars short_name]" "One Domain"]
 
 <hr>
 <blockquote>
Index: openacs-4/packages/webmail/www/admin/domain-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/admin/domain-one.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail/www/admin/domain-one.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/webmail/www/admin/domain-one.tcl	18 Sep 2002 14:55:06 -0000	1.2
@@ -40,7 +40,7 @@
 doc_return 200 text/html "[ad_admin_header "One Domain"]
 <h2>$full_domain_name</h2>
 
-[ad_admin_context_bar [list "index.tcl" "WebMail Admin"] "One Domain"]
+[ad_admin_context_bar [list "./" "WebMail Admin"] "One Domain"]
 
 <hr>
 <blockquote>
Index: openacs-4/packages/webmail/www/admin/problems.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/admin/problems.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail/www/admin/problems.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/webmail/www/admin/problems.tcl	18 Sep 2002 14:55:06 -0000	1.2
@@ -44,7 +44,7 @@
 doc_return 200 text/html "[ad_admin_header "Common WebMail Problems"]
 <h2>Common Webmail Problems</h2>
 
- [ad_admin_context_bar [list "index.tcl" "WebMail Admin"] "Common Problems"]
+ [ad_admin_context_bar [list "./" "WebMail Admin"] "Common Problems"]
 
 <hr>
 
Index: openacs-4/packages/webmail/www/admin/search-results.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/admin/search-results.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail/www/admin/search-results.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/webmail/www/admin/search-results.tcl	18 Sep 2002 14:55:06 -0000	1.2
@@ -38,7 +38,7 @@
 doc_return 200 text/html "[ad_admin_header "One Domain"]
 <h2>$full_domain_name</h2>
 
-[ad_admin_context_bar [list "index.tcl" "WebMail Admin"] "One Domain"]
+[ad_admin_context_bar [list "./" "WebMail Admin"] "One Domain"]
 
 <hr>
 <blockquote>