Index: openacs-4/packages/courses/www/cc-admin/grant-list.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/Attic/grant-list.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/courses/www/cc-admin/grant-list.adp	2 Feb 2005 23:02:36 -0000	1.1
@@ -0,0 +1,4 @@
+<master>
+<property name=title>@page_title@</property>
+<property name="context">@context;noquote@</property>
+<listtemplate name=course_list></listtemplate>
Index: openacs-4/packages/courses/www/cc-admin/grant-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/Attic/grant-list.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/courses/www/cc-admin/grant-list.tcl	2 Feb 2005 23:02:36 -0000	1.1
@@ -0,0 +1,62 @@
+ad_page_contract {
+    Displays a list of all courses to grant permission
+
+    @author          Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net)
+    @creation date   28-01-2005
+} {
+
+}
+
+set user_id [auth::get_user_id]
+set page_title "[_ courses.grant] [_ courses.course_list]"
+set context [list $page_title]
+set return_url "/courses/cc-admin/grant-list"
+
+set asm_package_id [apm_package_id_from_key assessment]
+
+if { [acs_user::site_wide_admin_p] } {
+    set query get_course_info_site_wide
+} else {
+    set query get_course_info
+}
+
+
+db_multirow -extend { asm_name item_id } course_list $query {} {
+    set asm_name [db_string get_asm_name { } -default "[_ courses.not_associated]"]
+    set item_id [course_catalog::get_item_id -name $course_key]
+}
+
+template::list::create \
+    -name course_list \
+    -multirow course_list \
+    -key course_id \
+    -bulk_action_method post \
+    -bulk_action_export_vars {
+    }\
+    -row_pretty_plural "[_ courses.courses]" \
+    -elements {
+	key {
+	    label "[_ courses.course_key]"
+	    display_template {
+		@course_list.course_key@
+	    }
+	}
+	name  {
+	    label "[_ courses.course_name]"
+	    display_template {
+		@course_list.course_name@
+	    }
+	}
+	assessment_id  {
+	    label "[_ courses.asm]:"
+	    display_template {
+		@course_list.asm_name@
+	    }
+	}
+	permission {
+	    label "[_ courses.grant]"
+	    display_template {
+		<a href="grant-user-list?object_id=@course_list.item_id@">Grant</a>
+	    }
+	}
+    }
\ No newline at end of file
Index: openacs-4/packages/courses/www/cc-admin/grant-list.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/Attic/grant-list.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/courses/www/cc-admin/grant-list.xql	2 Feb 2005 23:02:36 -0000	1.1
@@ -0,0 +1,35 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="get_course_info">      
+      <querytext>
+            select course_id, course_key, course_name, course_info, assessment_id, item_id
+	    from course_catalog, cr_items
+	    where course_id = live_revision and  
+	    item_id in (
+		select object_id from acs_permissions where grantee_id = :user_id and
+		privilege = 'admin')
+         	
+      </querytext>
+</fullquery>
+
+<fullquery name="get_course_info_site_wide">      
+      <querytext>
+            select course_id, course_key, course_name, course_info, assessment_id 
+	    from course_catalog, cr_items
+	    where course_id = live_revision          	
+      </querytext>
+</fullquery>
+
+<fullquery name="get_asm_name">
+      <querytext>
+            select cr.title from
+            cr_folders cf, cr_items ci, cr_revisions cr, as_assessments a
+            where cr.revision_id = ci.latest_revision and a.assessment_id = cr.revision_id and
+            ci.parent_id = cf.folder_id and cf.package_id = :asm_package_id and
+            ci.item_id = :assessment_id order by cr.title
+      </querytext>
+</fullquery>
+
+
+</queryset>
Index: openacs-4/packages/courses/www/cc-admin/grant-user-list.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/grant-user-list.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/courses/www/cc-admin/grant-user-list.adp	2 Feb 2005 23:02:36 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+<property name=title>@page_title@</property>
+<property name="context">@context;noquote@</property>
+<formtemplate id="search_user"></formtemplate>
+<listtemplate name=grant_list></listtemplate>
\ No newline at end of file
Index: openacs-4/packages/courses/www/cc-admin/grant-user-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/grant-user-list.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/courses/www/cc-admin/grant-user-list.tcl	2 Feb 2005 23:02:36 -0000	1.1
@@ -0,0 +1,80 @@
+ad_page_contract {
+    Displays a list of all proffesors from dotlrn
+
+    @author          Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net)
+    @creation date   28-01-2005
+} {
+    { return_url "" }
+    { user_name "" }
+    { user_email "" }
+}
+
+set user_id [auth::get_user_id]
+# course_catalog package_id
+set cc_package_id [apm_package_id_from_key "courses"]
+
+set page_title "[_ courses.search_u]"
+set context [list [list "courses/cc-admin/grant-list" "[_ courses.grant] [_ courses.course_list]"] "[_ courses.search_u]"]
+if {[string equal $return_url ""]} {
+    set return_url "/courses/admin/grant-list"
+}
+
+if {![string equal $user_name ""]} {
+    set query select_users_name
+    if {![string equal $user_email ""]} {
+	set query select_users_name_email
+    }
+} else {
+    set query select_users
+    if {![string equal $user_email ""]} {
+	set query select_users_email
+    }
+}
+
+# To search for users
+ad_form -name search_user -form {
+    {user_name:text(text),optional
+	{label "[_ courses.search_user]"}
+	{help_text "[_ courses.search_help]"}
+    }
+    {user_email:text(text),optional
+	{label "[_ courses.search_user_email]"}
+    }
+}
+
+db_multirow -extend { privilege email } grant_list $query {} {
+    set privilege [permission::permission_p -party_id $p_user_id -object_id $cc_package_id -privilege "create"]
+    set email [email_image::get_user_email -user_id $p_user_id]
+}
+
+template::list::create \
+    -name grant_list \
+    -multirow grant_list \
+    -key p_user_id \
+    -row_pretty_plural "[_ courses.users_to_grant]" \
+    -elements {
+	name {
+	    label "[_ courses.user_name]"
+	    display_template {
+		@grant_list.first_names@ @grant_list.last_name@
+	    }
+	}
+	email {
+	    label "[_ courses.email]"
+	    display_template {
+		@grant_list.email;noquote@
+	    }
+	}
+	permission {
+	    label "[_ courses.permission]"
+	    display_template {
+		<if @grant_list.privilege@ eq 1>
+		   [_ courses.granted]
+		</if>
+		<else>
+		   <i>[_ courses.not_allowed]</i>
+		</else>
+	    }
+	}
+    }
+
Index: openacs-4/packages/courses/www/cc-admin/grant-user-list.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/grant-user-list.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/courses/www/cc-admin/grant-user-list.xql	2 Feb 2005 23:02:36 -0000	1.1
@@ -0,0 +1,35 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="select_users">      
+      <querytext>
+	  select first_names, last_name, user_id as p_user_id
+	  from cc_users where user_id <> :user_id 
+      </querytext>
+</fullquery>
+
+<fullquery name="select_users_name">      
+      <querytext>
+	  select first_names, last_name, user_id as p_user_id
+	  from cc_users where user_id <> :user_id and lower(first_names) like '%$user_name%'
+	  or lower(last_name) like '%$user_name%'
+      </querytext>
+</fullquery>
+
+<fullquery name="select_users_email">      
+      <querytext>
+	  select first_names, last_name, user_id as p_user_id
+	  from cc_users where user_id <> :user_id and lower(email) like '%$user_email%'
+      </querytext>
+</fullquery>
+
+<fullquery name="select_users_name_email">      
+      <querytext>
+	  select first_names, last_name, user_id as p_user_id
+	  from cc_users where user_id <> :user_id and (
+	  lower(first_names) like '%$user_name%' or lower(last_name) like '%$user_name%')
+	  and lower(email) like '%$user_email%'
+      </querytext>
+</fullquery>
+
+</queryset>