Index: openacs-4/packages/assessment/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/index.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/admin/index.adp	21 Sep 2004 17:35:40 -0000	1.1
+++ openacs-4/packages/assessment/www/admin/index.adp	7 Oct 2004 13:38:38 -0000	1.2
@@ -3,4 +3,5 @@
 <property name="context">@context;noquote@</property>
 
 <formtemplate id="form_upload_file"></formtemplate>
-</master>
+<p>
+<listtemplate name="assessments"></listtemplate>
Index: openacs-4/packages/assessment/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/admin/index.tcl	6 Oct 2004 12:55:26 -0000	1.2
+++ openacs-4/packages/assessment/www/admin/index.tcl	7 Oct 2004 13:38:38 -0000	1.3
@@ -14,4 +14,23 @@
     {zipfile:file {label "[_ assessment.Import_QTI_ZIP_File]"}}
 }
 
+set actions [list "[_ assessment.New_Assessment]" assessment-create "[_ assessment.New_Assessment2]"]
+
+if {[ad_permission_p [acs_magic_object "security_context_root"] "admin"]} {
+    lappend actions "[_ assessment.Admin_catalog]" "catalog/" "[_ assessment.Admin_catalog]"
+}
+
+db_multirow assessments get_all_assessments {}
+
+list::create \
+    -name assessments \
+    -key assessment_id \
+    -no_data "[_ assessment.None]" \
+    -elements {
+	title {
+	    label "[_ assessment.Title]"
+	    link_url_eval "[export_vars -base one-a { assessment_id }]"
+	}
+    } -actions $actions
+
 ad_return_template
Index: openacs-4/packages/assessment/www/admin/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/index.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/index.xql	7 Oct 2004 13:38:38 -0000	1.1
@@ -0,0 +1,15 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="get_all_assessments">
+      <querytext>
+      
+    SELECT assessment_id, title
+    FROM as_assessmentsx
+    order by title
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>