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]