Index: openacs-4/packages/acs-outdated/www/acs-tcl-users-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-outdated/www/acs-tcl-users-one.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-outdated/www/acs-tcl-users-one.tcl	11 Jul 2018 10:37:41 -0000	1.2
+++ openacs-4/packages/acs-outdated/www/acs-tcl-users-one.tcl	5 Oct 2019 12:59:59 -0000	1.2.2.1
@@ -10,12 +10,12 @@
 #  if {$contact_info ne ""} {
 #      append whole_page "<h3>Contact Info</h3>\n\n$contact_info\n
 #  <ul>
-#  <li><a href=contact-edit?[export_vars -url {user_id}]>Edit contact information</a>
+#  <li><a href=[export_vars -base contact-edit {user_id}]>Edit contact information</a>
 #  </ul>"
 #  } else {
 #      append whole_page "<h3>Contact Info</h3>\n\n$contact_info\n
 #  <ul>
-#  <li><a href=contact-edit?[export_vars -url {user_id}]>Add contact information</a>
+#  <li><a href=[export_vars -base contact-edit {user_id}]>Add contact information</a>
 #  </ul>"
 #  }
 
@@ -64,7 +64,7 @@
 #  if { [im_enabled_p] && [ad_user_group_member $db [im_employee_group_id] $user_id] } {
 #      # We are running an intranet enabled acs and this user is a member of the 
 #      # employees group. Offer a link to the employee administration page
-#      set intranet_admin_link "<li><a href=\"[im_url_stub]/employees/admin/view?[export_vars -url {user_id}]\">Update this user's employee information</a><p>"
+#      set intranet_admin_link "<li><a href=\"[im_url_stub]/employees/admin/[export_vars -base view {user_id}]\">Update this user's employee information</a><p>"
 #  } else {
 #      set intranet_admin_link ""
 #  }