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.6 -r1.6.2.7 --- openacs-4/packages/assessment/www/asm-admin/index.tcl 21 Jul 2005 18:28:13 -0000 1.6.2.6 +++ openacs-4/packages/assessment/www/asm-admin/index.tcl 6 Sep 2005 05:54:15 -0000 1.6.2.7 @@ -34,10 +34,10 @@ } set actions [list] -lappend actions "[_ assessment.New_Survey]" {assessment-form?type=1} "[_ assessment.New_Survey2]" \ - "[_ assessment.New_Review_Assessment]" {assessment-form?type=3} "[_ assessment.New_Review_Assessment2]" \ - "[_ assessment.New_Partial_Assessment]" {assessment-form?type=4} "[_ assessment.New_Partial_Assessment2]" \ - "[_ assessment.New_Quick_Assessment]" {assessment-form?type=5} "[_ assessment.New_Quick_Assessment2]" \ +lappend actions "[_ assessment.New_Survey]" {assessment-form?type=1} "[_ assessment.New_Survey]" \ + "[_ assessment.New_Review_Assessment]" {assessment-form?type=3} "[_ assessment.New_Review_Assessment]" \ + "[_ assessment.New_Partial_Assessment]" {assessment-form?type=4} "[_ assessment.New_Partial_Assessment]" \ + "[_ assessment.New_Quick_Assessment]" {assessment-form?type=5} "[_ assessment.New_Quick_Assessment]" \ "[_ assessment.New_Assessment]" {assessment-form?type=2} "[_ assessment.New_Assessment2]" if { $sw_admin } {