Index: openacs-4/packages/assessment/www/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/assessment.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/assessment.tcl	15 Sep 2004 19:47:48 -0000	1.1
+++ openacs-4/packages/assessment/www/assessment.tcl	19 Sep 2004 22:26:06 -0000	1.2
@@ -1,5 +1,5 @@
 ad_page_contract {
-    @author eperez@it.uc3m.es
+    @author Eduardo P�rez Ureta (eperez@it.uc3m.es)
     @creation-date 2004-09-13
 } -query {
   assessment_id:notnull
Index: openacs-4/packages/assessment/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/index.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/index.adp	7 Jun 2004 14:02:53 -0000	1.4
+++ openacs-4/packages/assessment/www/index.adp	19 Sep 2004 22:26:06 -0000	1.5
@@ -1,9 +1,14 @@
 <master>
 <property name="title">Assessment</property>
 <property name="context">@context;noquote@</property>
-<ul>
-<li><a href="show_assessments">Show assessments</a>
-<li><a href="show_items">Show items</a><br>
-<li><a href="upload_file">Upload files</a>
-</ul>
+<if @admin_p@ eq "1"><p style="text-align: right;"><a href="as_admin"><img src="graphics/admin.gif" border="0" alt="Administer Surveys"></a></if>
+
+<multiple name="assessment_info">
+	<ul>
+		<li>
+			<a href="assessment?assessment_id=@assessment_info.assessment_id@" title="@assessment_info.description@">@assessment_info.title@</a>
+		</li>
+	</ul>
+</multiple>
+
 </master>
Index: openacs-4/packages/assessment/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/index.tcl	10 May 2004 12:20:10 -0000	1.1
+++ openacs-4/packages/assessment/www/index.tcl	19 Sep 2004 22:26:06 -0000	1.2
@@ -1,12 +1,18 @@
-# packages/alvassessment1/www/index.tcl
-
 ad_page_contract {
-	@author Alvaro
+	@author Eduardo P�rez Ureta (eperez@it.uc3m.es)
+	@creation-date 2004-09-03
 } {
 } -properties {
-    context:onevalue
+	context:onevalue
+	assessment_info:multirow
 }
 
-set context [list]
+set context [list "Show Assessments"]
 
+set package_id [ad_conn package_id]
+
+db_multirow assessment_info asssessment_id_name_definition {} {}
+
+set admin_p [ad_permission_p $package_id admin]
+
 ad_return_template
Index: openacs-4/packages/assessment/www/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/index.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/index.xql	19 Sep 2004 22:26:06 -0000	1.1
@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<queryset>
+
+	<rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+	<fullquery name="asssessment_id_name_definition">
+		<querytext>
+			SELECT as_assessmentsx.assessment_id, as_assessmentsx.name, as_assessmentsx.title, as_assessmentsx.description
+			FROM as_assessments
+		</querytext>
+	</fullquery>
+	
+	<fullquery name="section_id_name_definition">
+		<querytext>
+			SELECT assessment_id, as_sections.section_id, as_sections.name, as_sections.definition 
+			FROM as_sections JOIN as_assessment_section_map 
+			ON (as_sections.section_id=as_assessment_section_map.section_id) 
+			WHERE assessment_id=2
+		</querytext>
+	</fullquery>
+	
+</queryset>