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.5 -r1.6
--- openacs-4/packages/assessment/www/admin/index.tcl	17 Nov 2004 17:16:08 -0000	1.5
+++ openacs-4/packages/assessment/www/admin/index.tcl	3 Dec 2004 10:24:22 -0000	1.6
@@ -28,7 +28,9 @@
 }
 
 #get all assessments order by title
-db_multirow assessments get_all_assessments {}
+db_multirow -extend { export } assessments get_all_assessments {} {
+    set export "[_ assessment.Export]"
+}
 
 #list all assessments
 list::create \
@@ -40,6 +42,10 @@
 	    label "[_ assessment.Title]"
 	    link_url_eval "[export_vars -base one-a { assessment_id }]"
 	}
+	export {
+	    label "[_ assessment.Export]"
+	    link_url_eval "[export_vars -base export { assessment_id }]"
+	}
     } -actions $actions
 
 ad_return_template