Index: openacs-4/packages/acs-subsite/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/index.adp,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/acs-subsite/www/admin/index.adp	11 Dec 2003 21:39:55 -0000	1.20
+++ openacs-4/packages/acs-subsite/www/admin/index.adp	28 Feb 2005 18:22:35 -0000	1.21
@@ -20,6 +20,9 @@
   <li><a href=rel-types/>Relationship Types</a>
   <li><a href=host-node-map/>Host-Node Map</a>
   <li><a href=object-types/>Object Types</a>
+  <if @asm_p@ eq 1>
+  <li><a href=set-reg-assessment> Admin Registration Assessment </a>
+  </if>
 </ul>
 
 <if @sw_admin_p@ true>
Index: openacs-4/packages/acs-subsite/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/index.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-subsite/www/admin/index.tcl	2 Mar 2004 14:55:55 -0000	1.13
+++ openacs-4/packages/acs-subsite/www/admin/index.tcl	28 Feb 2005 18:22:35 -0000	1.14
@@ -23,3 +23,13 @@
 array set acs_admin_node [site_node::get -url $acs_admin_url]
 set acs_admin_name $acs_admin_node(instance_name)
 set sw_admin_p [permission::permission_p -party_id [ad_conn user_id] -object_id $acs_admin_node(object_id) -privilege admin]
+set asm_p [apm_package_installed_p "assessment"]
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/acs-subsite/www/admin/set-reg-assessment.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/Attic/set-reg-assessment.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/set-reg-assessment.adp	28 Feb 2005 18:15:13 -0000	1.1
@@ -0,0 +1,11 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+<if @asm_p@ eq 0>
+	#acs-subsite.no_assessment#
+</if>
+<else>
+<formtemplate id="get_assessment"></formtemplate>
+</else>
+
+
Index: openacs-4/packages/acs-subsite/www/admin/set-reg-assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/Attic/set-reg-assessment.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/set-reg-assessment.tcl	28 Feb 2005 18:15:13 -0000	1.1
@@ -0,0 +1,88 @@
+ad_page_contract {
+    This display the anonymous assessments available for registration
+    
+    @author Vivian Hernandez (vivian@viaro.net) Viaro Networks (www.viaro.net)
+    @creation-date 2005-01-20
+    @cvs-id $Id: 
+}
+
+set install_p [apm_package_installed_p "assessment"]
+set mount_p [site_node::get_package_url -package_key assessment]
+
+if {$install_p == 0 || $mount_p == ""} {
+    ad_return_complaint 1 "Assessment Package is not installed or mounted"
+    ad_script_abort
+}
+
+set page_title "[ad_conn instance_name] Set the assessment for registration"
+
+set context [list "Set the assessment for registration"]
+
+set subsite_id [ad_conn subsite_id]
+
+set package_id [apm_package_id_from_key "assessment"]
+
+set value [parameter::get -parameter AsmForRegisterId]
+
+
+set assessments [db_list_of_lists get_all_assessments {}]
+lappend assessments [list "[_ acs-subsite.none]" 0]
+
+
+set asm_p [llength $assessments]
+
+ad_form -name get_assessment  -form {
+    {assessment_id:text(select)
+    {label "[_ acs-subsite.choose_assessment]"}
+    {options $assessments}
+    {help_text "[_ acs-subsite.choose_assessment_help]"}
+    {value $value}} 
+} -on_submit {
+    parameter::set_value -package_id [ad_conn package_id] -parameter AsmForRegisterId -value $assessment_id
+}
+
+ad_return_template
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/acs-subsite/www/admin/set-reg-assessment.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/Attic/set-reg-assessment.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/set-reg-assessment.xql	28 Feb 2005 18:15:13 -0000	1.1
@@ -0,0 +1,27 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="get_all_assessments">
+      <querytext>
+      
+    select cr.title,ci.item_id as assessment_id
+    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 a.anonymous_p = 't'
+    and ci.parent_id = cf.folder_id
+    and cf.package_id in (select object_id from site_nodes)	
+    order by cr.title
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
+
+
+
+
+
+
+