Index: openacs-4/packages/assessment/www/asm-admin/permissions-user-add-oracle-xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/permissions-user-add-oracle-xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/asm-admin/permissions-user-add-oracle-xql	3 Feb 2005 14:44:51 -0000	1.1
@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="add_user">      
+      <querytext>
+
+          begin
+              acs_permission.grant_permission(
+                  object_id => :object_id, 
+                  grantee_id => :one_user_id,
+                  privilege => 'read'
+              );
+          end;
+
+      </querytext>
+</fullquery>
+
+
+ 
+</queryset>
Index: openacs-4/packages/assessment/www/asm-admin/permissions-user-add-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/permissions-user-add-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/asm-admin/permissions-user-add-postgresql.xql	3 Feb 2005 14:44:51 -0000	1.1
@@ -0,0 +1,16 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="add_user">      
+      <querytext>
+
+            select acs_permission__grant_permission(:object_id, :party_id, 'read')
+
+      </querytext>
+</fullquery>
+
+
+ 
+</queryset>
Index: openacs-4/packages/assessment/www/asm-admin/permissions-user-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/permissions-user-add.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/asm-admin/permissions-user-add.adp	3 Feb 2005 14:44:51 -0000	1.1
@@ -0,0 +1,7 @@
+<master>
+  <property name="title">@page_title@</property>
+  <property name="context">@context@</property>
+
+<formtemplate id="permissions"></formtemplate>
+
+
Index: openacs-4/packages/assessment/www/asm-admin/permissions-user-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/permissions-user-add.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/asm-admin/permissions-user-add.tcl	3 Feb 2005 14:44:51 -0000	1.1
@@ -0,0 +1,39 @@
+ad_page_contract {
+    Redirect page for adding users to the permissions list.
+
+    @author Lars Pind (lars@collaboraid.biz)
+    @creation-date 2003-06-13
+    @cvs-id $Id: permissions-user-add.tcl,v 1.1 2005/02/03 14:44:51 annyf Exp $
+} {
+    object_id:integer
+    
+}
+
+set page_title "Add User"
+
+set context [list [list "/assessment/asm-admin/" "[_ assessment.Assessment] [_ assessment.Administration]"] [list [export_vars -base permissions { object_id }] "Permissions"] $page_title]
+
+set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
+permission::require_permission -object_id $package_id -party_id $user_id -privilege "create"
+
+
+form create permissions
+element create permissions object_id \
+    -widget hidden\
+    -value $object_id
+element create permissions party_id \
+    -widget party_search \
+    -datatype party_search \
+    -label User
+if {[template::form is_valid permissions]} {
+    template::form get_values permissions party_id object_id
+    db_transaction {
+	
+	db_exec_plsql add_user {}
+	    
+    } on_error {
+	ad_return_complaint 1 "We had a problem adding the users you selected. Sorry."
+    }
+    ad_returnredirect "permissions?object_id=$object_id"    
+}
Index: openacs-4/packages/assessment/www/asm-admin/permissions.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/permissions.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/asm-admin/permissions.adp	3 Feb 2005 14:44:51 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+  <property name="title">@page_title@</property>
+  <property name="context">@context@</property>
+
+<include src="/packages/acs-subsite/www/permissions/perm-include" object_id="@object_id@" return_url="@return_url@" user_add_url="permissions-user-add">
Index: openacs-4/packages/assessment/www/asm-admin/permissions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/permissions.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/asm-admin/permissions.tcl	3 Feb 2005 14:44:51 -0000	1.1
@@ -0,0 +1,20 @@
+ad_page_contract {
+    Permissions for the subsite itself.
+    
+    @creation-date 2004-11-09
+    
+} {
+    object_id:integer
+}
+
+set page_title "Permissions"
+
+
+
+set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
+permission::require_permission -object_id $package_id -party_id $user_id -privilege "create"
+
+set node_id [ad_conn node_id]
+set return_url "[site_node::get_url -node_id $node_id]asm-admin/"
+set context [list [list "[site_node::get_url -node_id $node_id]asm-admin/" "[_ assessment.Assessment] [_ assessment.Administration]"] $page_title]
\ No newline at end of file