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 -N -r1.9 -r1.10
--- openacs-4/packages/assessment/www/admin/index.tcl	1 Feb 2005 21:33:13 -0000	1.9
+++ openacs-4/packages/assessment/www/admin/index.tcl	10 Feb 2005 21:30:08 -0000	1.10
@@ -1,55 +1,10 @@
 ad_page_contract {
-
-    Presents a form to upload a QTI ZIP file,
-    lists all assessments and shows a link to 
-    assessment editor and another to assessment
-    catalog.
     
-    @author eperez@it.uc3m.es
-    @creation-date 2004-09-21
+    Redirects to asm-admin
+
+    @author Anny Flores (annyflores@viaro.net) Viaro Networks (www.viaro.net)
+    @create-date 2005-09-02
 } {
-} -properties {
-    zipfile
-    context:onevalue
-}
 
-set title "[_ assessment.Administration]"
-set context {}
-set package_id [ad_conn package_id]
-set categories_url [db_string get_category_url {}]
-set user_id [ad_conn user_id]
-set admin_p [ad_permission_p $package_id admin]
-
-#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]"}}
-}
-
-set actions [list "[_ assessment.New_Assessment]" assessment-form "[_ assessment.New_Assessment2]"]
-
-if {[ad_permission_p [acs_magic_object "security_context_root"] "admin"]} {
-    # lappend actions "[_ assessment.Admin_catalog]" "catalog/" "[_ assessment.Admin_catalog]"
-}
-
-#get all assessments order by title
-db_multirow -extend { export } assessments get_all_assessments {} {
-    set export "[_ assessment.Export]"
-}
-
-#list 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 }]"
-	}
-	export {
-	    label "[_ assessment.Export]"
-	    link_url_eval "[export_vars -base export { assessment_id }]"
-	}
-    } -actions $actions
-
-ad_return_template
+} 
+ad_returnredirect "../asm-admin/"
\ No newline at end of file