Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	22 Jan 2018 00:39:42 -0000	1.36
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	27 Jan 2018 16:55:43 -0000	1.37
@@ -187,7 +187,7 @@
             ns_log notice "permission::require_permission: $party_id doesn't have privilege $privilege on object $object_id"
             ad_return_forbidden \
                 "Permission Denied" \
-                "You don't have permission to $privilege [db_string name {}]."
+                "You don't have permission to $privilege on object $object_id."
         }
 
         ad_script_abort
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/acs-tcl/tcl/community-core-2-procs.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.xql,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	20 Nov 2017 15:52:23 -0000	1.27
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	27 Jan 2018 16:55:43 -0000	1.28
@@ -1,40 +1,6 @@
 <?xml version="1.0"?>
 <queryset>
 
-<fullquery name="cc_lookup_screen_name_user.user_select">      
-      <querytext>
-      
-	select user_id from acs_users_all where lower(screen_name) = lower(:screen_name)
-    
-      </querytext>
-</fullquery>
-
-<fullquery name="cc_lookup_email_user.user_select">      
-      <querytext>
-      
-	select user_id from acs_users_all where lower(email) = lower(:email)
-    
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="cc_email_from_party.email_from_party">      
-      <querytext>
-
-	select email from parties where party_id = :party_id
-
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="cc_lookup_name_group.group_select">      
-      <querytext>
-      
-	select group_id from groups where group_name = :name
-    
-      </querytext>
-</fullquery>
-
 <fullquery name="person::get.get_person">      
       <querytext>
       
Index: openacs-4/packages/acs-tcl/tcl/defs-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/defs-procs.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/defs-procs.xql	21 Jan 2018 18:48:33 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.xql	27 Jan 2018 16:55:43 -0000	1.6
@@ -1,15 +1,6 @@
 <?xml version="1.0"?>
 <queryset>
 
-  <fullquery name="ad_pretty_mailing_address_from_args.user_name_select">      
-    <querytext>
-      select first_names, last_name, email
-      from persons, parties
-      where person_id = :user_id
-      and person_id = party_id
-    </querytext>
-  </fullquery>
-
   <fullquery name="ad_parameter_cache.select_instance_parameter_value">      
     <querytext>
       select apm_parameter_values.attr_value
@@ -28,14 +19,5 @@
     </querytext>
   </fullquery>
 
-  <fullquery name="ad_record_query_string.query_string_record">      
-    <querytext>
-      insert
-      into query_strings 
-      (query_date, query_string, subsection, n_results, user_id)
-      values
-      (current_timestamp, :query_string, :subsection, :n_results, :user_id)
-    </querytext>
-  </fullquery>
 
 </queryset>
Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	22 Jan 2018 00:17:04 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	27 Jan 2018 16:55:43 -0000	1.8
@@ -2775,7 +2775,7 @@
 ad_proc -deprecated -private cc_lookup_screen_name_user { screen_name } {
     @see acs_user::get_user_id_by_screen_name
 } {
-    return [db_string user_select {} -default {}]
+    return [db_string user_select_screen_name {} -default {}]
 }
 
 ad_proc -deprecated cc_screen_name_user { screen_name } {
Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.xql	20 Jan 2018 23:07:18 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.xql	27 Jan 2018 16:55:43 -0000	1.2
@@ -1,18 +1,75 @@
 <?xml version="1.0"?>
 <queryset>
 
-<fullquery name="nmc_GetNewIDNumber.id_number_update">      
+  <fullquery name="cc_lookup_screen_name_user.user_select_screen_name">      
       <querytext>
-      update id_numbers set :id_name = :id_name + 1
+      
+	select user_id from acs_users_all where lower(screen_name) = lower(:screen_name)
+    
       </querytext>
 </fullquery>
 
+<fullquery name="cc_lookup_email_user.user_select">
+      <querytext>
+      
+	select user_id from acs_users_all where lower(email) = lower(:email)
+    
+      </querytext>
+</fullquery>
+
  
-<fullquery name="nmc_GetNewIDNumber.nmc_getnewidnumber">      
+<fullquery name="cc_email_from_party.email_from_party">      
       <querytext>
-      select unique :id_name from id_numbers
+
+	select email from parties where party_id = :party_id
+
       </querytext>
 </fullquery>
 
  
+<fullquery name="cc_lookup_name_group.group_select">      
+      <querytext>
+      
+	select group_id from groups where group_name = :name
+    
+      </querytext>
+</fullquery>
+
+<fullquery name="oacs::user::get.select_user">
+<querytext>
+select user_id, screen_name, last_visit, second_to_last_visit,
+first_names, last_name, email, first_names || ' ' || last_name as full_name
+from users, parties, persons
+where 
+users.user_id = parties.party_id and
+users.user_id = persons.person_id and
+user_id= :user_id
+</querytext>
+</fullquery>
+
+<fullquery name="ad_dbclick_check_dml.double_click_check">      
+      <querytext>
+      
+		
+		select 1 as one
+		from $table_name
+		where $id_column_name = :generated_id
+		
+	    
+      </querytext>
+</fullquery>
+
+
+<fullquery name="validate_zip_code.zip_code_exists">      
+      <querytext>
+		    select 1
+		      from dual
+		     where exists (select 1
+				     from zip_codes
+				    where zip_code like :zip_5)
+      </querytext>
+</fullquery>
+
+
+ 
 </queryset>
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/acs-tcl/tcl/request-processor-init.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/acs-tcl/tcl/request-processor-procs-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/acs-tcl/tcl/request-processor-procs-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.xql	9 Mar 2002 02:00:02 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.xql	27 Jan 2018 16:55:43 -0000	1.5
@@ -1,29 +1,7 @@
 <?xml version="1.0"?>
 <queryset>
 
-<fullquery name="ad_dbclick_check_dml.double_click_check">      
-      <querytext>
-      
-		
-		select 1 as one
-		from $table_name
-		where $id_column_name = :generated_id
-		
-	    
-      </querytext>
-</fullquery>
-
  
-<fullquery name="validate_zip_code.zip_code_exists">      
-      <querytext>
-		    select 1
-		      from dual
-		     where exists (select 1
-				     from zip_codes
-				    where zip_code like :zip_5)
-      </querytext>
-</fullquery>
-
 <fullquery name="util_email_unique_p.email_unique_p">
   <querytext>
     select count(*)
Index: openacs-4/packages/acs-tcl/tcl/widgets-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/widgets-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.xql	23 Oct 2001 20:13:10 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.xql	27 Jan 2018 16:55:43 -0000	1.3
@@ -19,16 +19,4 @@
 </fullquery>
 
  
-<fullquery name="ad_db_select_widget.currency_info">      
-      <querytext>
-      
-	select currency_name, iso 
-	from currency_codes 
-	where supported_p='t'
-	order by currency_name 
-    
-      </querytext>
-</fullquery>
-
- 
 </queryset>