Index: openacs-4/packages/cms/www/head.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/head.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/head.xql	25 May 2001 02:28:33 -0000	1.1
@@ -0,0 +1,13 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="get_name">      
+      <querytext>
+      
+  select first_names || ' ' || last_name 
+    from persons where person_id = :user_id
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/cms/www/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/index.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/index.xql	25 May 2001 02:28:33 -0000	1.1
@@ -0,0 +1,18 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="get_name">      
+      <querytext>
+      
+  select 
+    first_names || ' ' || last_name 
+  from 
+    persons 
+  where 
+    person_id = :user_id
+
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/cms/www/register-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/Attic/register-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/register-oracle.xql	25 May 2001 02:28:33 -0000	1.1
@@ -0,0 +1,51 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="grant_permissions">      
+      <querytext>
+      
+	declare
+	  cursor c_item_cur is
+	    select item_id from cr_items
+	    connect by parent_id = prior item_id
+	    start with parent_id = 0;
+	
+          cursor c_module_cur is
+	    select module_id from cm_modules;
+
+	begin
+  
+	  for item_row in c_item_cur loop 
+	    acs_permission.grant_permission (
+	        object_id  => item_row.item_id, 
+	        grantee_id => :user_id, 
+	        privilege  => 'cm_admin'
+	    );
+	  end loop;
+
+	  for v_module in c_module_cur loop
+	    acs_permission.grant_permission (
+	        object_id  => v_module.module_id,
+	        grantee_id => :user_id,
+	        privilege  => 'cm_admin'
+            );
+	  end loop;
+
+	end;
+	
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="get_user_id">      
+      <querytext>
+      
+      select acs_object_id_seq.nextval from dual
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/cms/www/register-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/Attic/register-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/register-postgresql.xql	25 May 2001 02:28:33 -0000	1.1
@@ -0,0 +1,52 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="grant_permissions">      
+      <querytext>
+
+	declare
+          v_module      record;
+          item_row      record;
+	begin
+  
+	  for item_row in 
+	    select item_id from cr_items
+            where tree_sortkey like (select tree_sortkey || '%'
+                                     from cr_items where parent_id = 0)
+          LOOP 
+	    PERFORM acs_permission__grant_permission (
+	        item_row.item_id, 
+	        :user_id, 
+	        'cm_admin'
+	    );
+	  end loop;
+
+	  for v_module in
+	    select module_id from cm_modules
+          LOOP
+	    PERFORM acs_permission__grant_permission (
+	        v_module.module_id,
+	        :user_id,
+	        'cm_admin'
+            );
+	  end loop;
+
+          return null;
+	end;
+	
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="get_user_id">      
+      <querytext>
+      
+      select acs_object_id_seq.nextval 
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/cms/www/register.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/Attic/register.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/cms/www/register.xql	25 May 2001 02:28:33 -0000	1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="update_users">      
+      <querytext>
+      
+      update users
+        set screen_name = :screen_name
+        where user_id = :user_id
+      </querytext>
+</fullquery>
+
+ 
+</queryset>