Index: openacs-4/packages/assessment/www/asm-admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/index.tcl,v
diff -u -r1.6.2.9 -r1.6.2.10
--- openacs-4/packages/assessment/www/asm-admin/index.tcl	25 Feb 2006 15:46:24 -0000	1.6.2.9
+++ openacs-4/packages/assessment/www/asm-admin/index.tcl	7 Apr 2006 10:49:31 -0000	1.6.2.10
@@ -23,12 +23,6 @@
 set sw_admin [acs_user::site_wide_admin_p -user_id $user_id]
 set package_admin_p [permission::permission_p -party_id $user_id -object_id $package_id -privilege "admin"]
 
-if { $sw_admin == 0} {
-    set m_name "get_all_assessments_admin"
-} else {
-    set m_name "get_all_assessments"
-}
-
 #form to upload a QTI ZIP file
 ad_form -name form_upload_file -action {unzip-file} -html {enctype multipart/form-data}  -form {
     {zipfile:file {label "[_ assessment.Import_QTI_ZIP_File]"}}
@@ -54,7 +48,7 @@
 }
 
 #get all assessments order by title
-db_multirow -extend { export permissions admin_request} assessments $m_name {} {
+db_multirow -extend { export permissions admin_request} assessments get_all_assessments {} {
     set title [as::assessment::title -title $title]
     set export "[_ assessment.Export]"
     set permissions "[_ assessment.permissions]"