Index: openacs-4/packages/dotlrn/www/applet-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applet-add.tcl,v
diff -u -N -r1.13 -r1.13.2.1
--- openacs-4/packages/dotlrn/www/applet-add.tcl	29 Jun 2018 17:27:19 -0000	1.13
+++ openacs-4/packages/dotlrn/www/applet-add.tcl	10 Oct 2022 09:48:20 -0000	1.13.2.1
@@ -23,7 +23,7 @@
     @cvs-id $Id$
 } -query {
     applet_key
-    {referer "applets"}
+    {referer:localurl "applets"}
 }
 
 #prevent this page from being called when it is not allowed
Index: openacs-4/packages/dotlrn/www/approve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/approve.tcl,v
diff -u -N -r1.12 -r1.12.2.1
--- openacs-4/packages/dotlrn/www/approve.tcl	29 Jun 2018 17:27:19 -0000	1.12
+++ openacs-4/packages/dotlrn/www/approve.tcl	10 Oct 2022 09:48:20 -0000	1.12.2.1
@@ -23,7 +23,7 @@
 } -query {
     {user_id:integer,multiple ""}
     {community_id:integer ""}
-    {referer "./"}
+    {referer:localurl "./"}
 }
 
 auth::require_login
Index: openacs-4/packages/dotlrn/www/change-site-template.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/change-site-template.tcl,v
diff -u -N -r1.5 -r1.5.2.1
--- openacs-4/packages/dotlrn/www/change-site-template.tcl	15 Aug 2018 16:43:08 -0000	1.5
+++ openacs-4/packages/dotlrn/www/change-site-template.tcl	10 Oct 2022 09:48:20 -0000	1.5.2.1
@@ -6,7 +6,7 @@
     @creation-date 2005-05-25
     @cvs-id $Id$
 } {
-    referer:notnull
+    referer:localurl,notnull
 } -properties {
 } -validate {
 } -errors {
Index: openacs-4/packages/dotlrn/www/community-edit-revert.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-edit-revert.tcl,v
diff -u -N -r1.12 -r1.12.2.1
--- openacs-4/packages/dotlrn/www/community-edit-revert.tcl	29 Jun 2018 17:27:19 -0000	1.12
+++ openacs-4/packages/dotlrn/www/community-edit-revert.tcl	10 Oct 2022 09:48:21 -0000	1.12.2.1
@@ -22,7 +22,7 @@
     @cvs-id $Id$
 
 } -query {
-    {referer "community-edit"}
+    {referer:localurl "community-edit"}
     {header_logo_only ""}
 }
 
Index: openacs-4/packages/dotlrn/www/community-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-edit.tcl,v
diff -u -N -r1.19.2.1 -r1.19.2.2
--- openacs-4/packages/dotlrn/www/community-edit.tcl	3 Jul 2020 08:11:13 -0000	1.19.2.1
+++ openacs-4/packages/dotlrn/www/community-edit.tcl	10 Oct 2022 09:48:21 -0000	1.19.2.2
@@ -23,7 +23,7 @@
     @cvs-id $Id$
 
 } -query {
-    {referer "one-community-admin"}
+    {referer:localurl "one-community-admin"}
 }
 
 set user_id [ad_conn user_id]
Index: openacs-4/packages/dotlrn/www/join-policy-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/join-policy-toggle.tcl,v
diff -u -N -r1.13 -r1.13.2.1
--- openacs-4/packages/dotlrn/www/join-policy-toggle.tcl	29 Jun 2018 17:27:19 -0000	1.13
+++ openacs-4/packages/dotlrn/www/join-policy-toggle.tcl	10 Oct 2022 09:48:21 -0000	1.13.2.1
@@ -23,7 +23,7 @@
 } -query {
     {community_id:integer ""}
     policy:notnull
-    {referer "one-community-admin"}
+    {referer:localurl "one-community-admin"}
 } -validate {
     policy_ck -requires {policy:notnull} {
         if {$policy ni {open needs approval closed}} {
Index: openacs-4/packages/dotlrn/www/member-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add-3.tcl,v
diff -u -N -r1.18 -r1.18.2.1
--- openacs-4/packages/dotlrn/www/member-add-3.tcl	18 Sep 2018 17:27:15 -0000	1.18
+++ openacs-4/packages/dotlrn/www/member-add-3.tcl	10 Oct 2022 09:48:21 -0000	1.18.2.1
@@ -24,7 +24,7 @@
 } -query {
     user_id:naturalnum,multiple,notnull
     rel_type
-    {referer "one-community-admin"}
+    {referer:localurl "one-community-admin"}
 }
 
 set community_id [dotlrn_community::get_community_id]
Index: openacs-4/packages/dotlrn/www/privacy-policy-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/privacy-policy-toggle.tcl,v
diff -u -N -r1.7 -r1.7.2.1
--- openacs-4/packages/dotlrn/www/privacy-policy-toggle.tcl	29 Jun 2018 17:27:19 -0000	1.7
+++ openacs-4/packages/dotlrn/www/privacy-policy-toggle.tcl	10 Oct 2022 09:48:21 -0000	1.7.2.1
@@ -23,7 +23,7 @@
 } -query {
     {community_id:integer ""}
     policy:notnull
-    {referer "one-community-admin"}
+    {referer:localurl "one-community-admin"}
 } -validate {
     policy_ck -requires {policy:notnull} {
         if {$policy ni {yes no}} {
Index: openacs-4/packages/dotlrn/www/reject.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/reject.tcl,v
diff -u -N -r1.12 -r1.12.2.1
--- openacs-4/packages/dotlrn/www/reject.tcl	29 Jun 2018 17:27:19 -0000	1.12
+++ openacs-4/packages/dotlrn/www/reject.tcl	10 Oct 2022 09:48:21 -0000	1.12.2.1
@@ -23,7 +23,7 @@
 } -query {
     {user_id:integer,multiple ""}
     {community_id:integer ""}
-    {referer "./"}
+    {referer:localurl "./"}
 }
 
 auth::require_login
Index: openacs-4/packages/dotlrn/www/spam-policy-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam-policy-toggle.tcl,v
diff -u -N -r1.8 -r1.8.2.1
--- openacs-4/packages/dotlrn/www/spam-policy-toggle.tcl	18 Sep 2018 17:27:15 -0000	1.8
+++ openacs-4/packages/dotlrn/www/spam-policy-toggle.tcl	10 Oct 2022 09:48:21 -0000	1.8.2.1
@@ -20,7 +20,7 @@
 } -query {
     {community_id:integer ""}
     policy:notnull
-    {referer "one-community-admin"}
+    {referer:localurl "one-community-admin"}
 } -validate {
     policy_ck -requires {policy:notnull} {
         if { $policy ni {all admins} } {
Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -N -r1.39.2.1 -r1.39.2.2
--- openacs-4/packages/dotlrn/www/spam.tcl	19 Oct 2021 09:05:12 -0000	1.39.2.1
+++ openacs-4/packages/dotlrn/www/spam.tcl	10 Oct 2022 09:48:21 -0000	1.39.2.2
@@ -24,7 +24,7 @@
     {community_id:integer ""}
     {rel_types:multiple "" }
     {rel_types_str ""}
-    {referer ""}
+    {referer:localurl ""}
     {spam_all 0}
 } -validate {
 
Index: openacs-4/packages/dotlrn/www/user-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add-3.tcl,v
diff -u -N -r1.16 -r1.16.2.1
--- openacs-4/packages/dotlrn/www/user-add-3.tcl	29 Jun 2018 17:27:19 -0000	1.16
+++ openacs-4/packages/dotlrn/www/user-add-3.tcl	10 Oct 2022 09:48:21 -0000	1.16.2.1
@@ -23,7 +23,7 @@
 } -query {
     email
     message
-    {referer "/acs-admin/users"}
+    {referer:localurl "/acs-admin/users"}
 }
 
 #prevent this page from being called when it is not allowed
Index: openacs-4/packages/dotlrn/www/admin/add-edit-site-template.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/add-edit-site-template.tcl,v
diff -u -N -r1.7 -r1.7.2.1
--- openacs-4/packages/dotlrn/www/admin/add-edit-site-template.tcl	18 Sep 2018 17:27:15 -0000	1.7
+++ openacs-4/packages/dotlrn/www/admin/add-edit-site-template.tcl	10 Oct 2022 09:48:21 -0000	1.7.2.1
@@ -7,7 +7,7 @@
     @cvs-id $Id$
 } {
     site_template_id:naturalnum,optional
-    referer:notnull
+    referer:localurl,notnull
     {pretty_name ""}
     {site_master ""}
 } -properties {
Index: openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl,v
diff -u -N -r1.8 -r1.8.2.1
--- openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl	29 Jun 2018 17:27:19 -0000	1.8
+++ openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl	10 Oct 2022 09:48:21 -0000	1.8.2.1
@@ -23,7 +23,7 @@
 } -query {
     user_id:naturalnum,notnull
     can_browse_p:boolean
-    {referer "users"}
+    {referer:localurl "users"}
 }
 
 #Pages in this directory are only runnable by dotlrn-wide admins.
Index: openacs-4/packages/dotlrn/www/admin/class-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-edit.tcl,v
diff -u -N -r1.16 -r1.16.2.1
--- openacs-4/packages/dotlrn/www/admin/class-edit.tcl	29 Jun 2018 17:27:19 -0000	1.16
+++ openacs-4/packages/dotlrn/www/admin/class-edit.tcl	10 Oct 2022 09:48:21 -0000	1.16.2.1
@@ -22,7 +22,7 @@
     @cvs-id $Id$
 } -query {
     class_key:notnull
-    {referer classes}
+    {referer:localurl classes}
 } -properties {
     title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl,v
diff -u -N -r1.36 -r1.36.2.1
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	29 Jun 2018 17:27:19 -0000	1.36
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	10 Oct 2022 09:48:21 -0000	1.36.2.1
@@ -22,7 +22,7 @@
     @cvs-id $Id$
 } -query {
     class_key:notnull
-    {referer ""}
+    {referer:localurl ""}
 }
 
 #Pages in this directory are only runnable by dotlrn-wide admins.
Index: openacs-4/packages/dotlrn/www/admin/class-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-new.tcl,v
diff -u -N -r1.22 -r1.22.2.1
--- openacs-4/packages/dotlrn/www/admin/class-new.tcl	29 Jun 2018 17:27:19 -0000	1.22
+++ openacs-4/packages/dotlrn/www/admin/class-new.tcl	10 Oct 2022 09:48:21 -0000	1.22.2.1
@@ -23,7 +23,7 @@
     @cvs-id $Id$
 } -query {
     {department_key ""}
-    {referer classes}
+    {referer:localurl classes}
 } -properties {
     title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/dotlrn/www/admin/club-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/club-new.tcl,v
diff -u -N -r1.24 -r1.24.2.1
--- openacs-4/packages/dotlrn/www/admin/club-new.tcl	29 Jun 2018 17:27:19 -0000	1.24
+++ openacs-4/packages/dotlrn/www/admin/club-new.tcl	10 Oct 2022 09:48:21 -0000	1.24.2.1
@@ -21,7 +21,7 @@
     @creation-date 2001-12-03
     @cvs-id $Id$
 } -query {
-    {referer "clubs"}
+    {referer:localurl "clubs"}
 } -properties {
     title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/dotlrn/www/admin/community-members-add-to-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/community-members-add-to-community.tcl,v
diff -u -N -r1.9.2.2 -r1.9.2.3
--- openacs-4/packages/dotlrn/www/admin/community-members-add-to-community.tcl	22 Jul 2020 12:48:20 -0000	1.9.2.2
+++ openacs-4/packages/dotlrn/www/admin/community-members-add-to-community.tcl	10 Oct 2022 09:48:21 -0000	1.9.2.3
@@ -23,7 +23,7 @@
     @cvs-id $Id$
 } -query {
     source_community_id:integer
-    referer
+    referer:localurl
 } -properties {
     context_bar:onevalue
 }
Index: openacs-4/packages/dotlrn/www/admin/department-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/department-edit.tcl,v
diff -u -N -r1.15 -r1.15.2.1
--- openacs-4/packages/dotlrn/www/admin/department-edit.tcl	29 Jun 2018 17:27:19 -0000	1.15
+++ openacs-4/packages/dotlrn/www/admin/department-edit.tcl	10 Oct 2022 09:48:21 -0000	1.15.2.1
@@ -22,7 +22,7 @@
     @cvs-id $Id$
 } -query {
     department_key:notnull
-    {referer "departments"}
+    {referer:localurl "departments"}
 } -properties {
     title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/dotlrn/www/admin/department-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/department-new.tcl,v
diff -u -N -r1.14 -r1.14.2.1
--- openacs-4/packages/dotlrn/www/admin/department-new.tcl	29 Jun 2018 17:27:19 -0000	1.14
+++ openacs-4/packages/dotlrn/www/admin/department-new.tcl	10 Oct 2022 09:48:21 -0000	1.14.2.1
@@ -21,7 +21,7 @@
     @creation-date 2001-01-20
     @cvs-id $Id$
 } -query {
-    {referer "departments"}
+    {referer:localurl "departments"}
 } -properties {
     title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl,v
diff -u -N -r1.12 -r1.12.2.1
--- openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl	29 Jun 2018 17:27:19 -0000	1.12
+++ openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl	10 Oct 2022 09:48:21 -0000	1.12.2.1
@@ -17,7 +17,7 @@
     @creation-date 2002-03-05
     @cvs-id $Id$
 } -query {
-    {referer [dotlrn::get_admin_url]}
+    {referer:localurl [dotlrn::get_admin_url]}
 } -properties {
     context_bar:onevalue
 }
Index: openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl,v
diff -u -N -r1.8 -r1.8.2.1
--- openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl	29 Jun 2018 17:27:19 -0000	1.8
+++ openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl	10 Oct 2022 09:48:21 -0000	1.8.2.1
@@ -23,7 +23,7 @@
 } -query {
     user_id:naturalnum,notnull
     guest_p:boolean
-    {referer "users"}
+    {referer:localurl "users"}
 }
 
 #Pages in this directory are only runnable by dotlrn-wide admins.
Index: openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl,v
diff -u -N -r1.19 -r1.19.2.1
--- openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl	29 Jun 2018 17:27:19 -0000	1.19
+++ openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl	10 Oct 2022 09:48:21 -0000	1.19.2.1
@@ -23,7 +23,7 @@
 } -query {
     user_id:naturalnum,notnull
     value
-    {referer "users"}
+    {referer:localurl "users"}
 }
 
 #Pages in this directory are only runnable by dotlrn-wide admins.
Index: openacs-4/packages/dotlrn/www/admin/term-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term-new.tcl,v
diff -u -N -r1.16 -r1.16.2.1
--- openacs-4/packages/dotlrn/www/admin/term-new.tcl	29 Jun 2018 17:27:19 -0000	1.16
+++ openacs-4/packages/dotlrn/www/admin/term-new.tcl	10 Oct 2022 09:48:21 -0000	1.16.2.1
@@ -21,7 +21,7 @@
     @creation-date 2001-12-13
     @cvs-id $Id$
 } -query {
-    {referer "terms"}
+    {referer:localurl "terms"}
 } -properties {
     context_bar:onevalue
 }
Index: openacs-4/packages/dotlrn/www/admin/unarchive.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/unarchive.tcl,v
diff -u -N -r1.9 -r1.9.2.1
Binary files differ
Index: openacs-4/packages/dotlrn/www/admin/user-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-new-2.tcl,v
diff -u -N -r1.39 -r1.39.2.1
--- openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	29 Jun 2018 17:27:19 -0000	1.39
+++ openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	10 Oct 2022 09:48:21 -0000	1.39.2.1
@@ -22,7 +22,7 @@
     @cvs-id $Id$
 } -query {
     user_id:naturalnum
-    {referer "[dotlrn::get_admin_url]/users" }
+    {referer:localurl "[dotlrn::get_admin_url]/users" }
 }
 
 #Pages in this directory are only runnable by dotlrn-wide admins.
Index: openacs-4/packages/dotlrn/www/admin/user-nuke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-nuke.tcl,v
diff -u -N -r1.9 -r1.9.2.1
--- openacs-4/packages/dotlrn/www/admin/user-nuke.tcl	29 Jun 2018 17:27:19 -0000	1.9
+++ openacs-4/packages/dotlrn/www/admin/user-nuke.tcl	10 Oct 2022 09:48:21 -0000	1.9.2.1
@@ -7,7 +7,7 @@
     @cvs-id $Id$
 } {
     user_id:naturalnum,notnull
-    {referer "[dotlrn::get_admin_url]/users"}
+    {referer:localurl "[dotlrn::get_admin_url]/users"}
 }
 
 #Pages in this directory are only runnable by dotlrn-wide admins.
Index: openacs-4/packages/dotlrn/www/admin/users-deactivate.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-deactivate.tcl,v
diff -u -N -r1.8 -r1.8.2.1
--- openacs-4/packages/dotlrn/www/admin/users-deactivate.tcl	29 Jun 2018 17:27:19 -0000	1.8
+++ openacs-4/packages/dotlrn/www/admin/users-deactivate.tcl	10 Oct 2022 09:48:21 -0000	1.8.2.1
@@ -24,7 +24,7 @@
     @cvs-id $Id$
 } -query {
     users
-    {referer "users-search"}
+    {referer:localurl "users-search"}
 } -properties {
     context_bar:onevalue
 }
Index: openacs-4/packages/dotlrn/www/admin/users-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-delete.tcl,v
diff -u -N -r1.10 -r1.10.2.1
--- openacs-4/packages/dotlrn/www/admin/users-delete.tcl	29 Jun 2018 17:27:19 -0000	1.10
+++ openacs-4/packages/dotlrn/www/admin/users-delete.tcl	10 Oct 2022 09:48:21 -0000	1.10.2.1
@@ -24,7 +24,7 @@
     @cvs-id $Id$
 } -query {
     users
-    {referer "users-search"}
+    {referer:localurl "users-search"}
 } -properties {
     context_bar:onevalue
 }
Index: openacs-4/packages/dotlrn/www/admin/users-spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-spam.tcl,v
diff -u -N -r1.9.2.1 -r1.9.2.2
--- openacs-4/packages/dotlrn/www/admin/users-spam.tcl	24 Feb 2021 11:13:53 -0000	1.9.2.1
+++ openacs-4/packages/dotlrn/www/admin/users-spam.tcl	10 Oct 2022 09:48:21 -0000	1.9.2.2
@@ -24,7 +24,7 @@
     @cvs-id $Id$
 } -query {
     users
-    {referer "users-search"}
+    {referer:localurl "users-search"}
 } -properties {
     context_bar:onevalue
 }