Index: openacs-4/packages/ae-portlet/catalog/ae-portlet.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ae-portlet/catalog/ae-portlet.en_US.ISO-8859-1.xml,v diff -u -r1.5 -r1.6 --- openacs-4/packages/ae-portlet/catalog/ae-portlet.en_US.ISO-8859-1.xml 4 Feb 2006 14:01:39 -0000 1.5 +++ openacs-4/packages/ae-portlet/catalog/ae-portlet.en_US.ISO-8859-1.xml 6 Feb 2006 19:22:20 -0000 1.6 @@ -11,6 +11,7 @@ No evaluations presently available No unpublished evaluations #NOTE: This is an admin only section for unpublished evaluations + New Evaluation Publish Results Take Evaluation Index: openacs-4/packages/ae-portlet/lib/ae-portlet-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ae-portlet/lib/ae-portlet-chunk.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/ae-portlet/lib/ae-portlet-chunk.tcl 6 Feb 2006 16:41:27 -0000 1.4 +++ openacs-4/packages/ae-portlet/lib/ae-portlet-chunk.tcl 6 Feb 2006 19:22:20 -0000 1.5 @@ -98,7 +98,7 @@ -page_flush_p 1 \ -html { width 100% } \ -pass_properties { package_admin_p } \ - -actions [list "#assessment.New_Assessment#" ${base_url}asm-admin/assessment-form "#assessment.New_Assessment#"] \ + -actions [list "[_ ae-portlet.New_Evaluation]" ${base_url}asm-admin/assessment-form "[_ ae-portlet.New_Evaluation]"] \ -no_data "[_ ae-portlet.lt_No_unpublished_evalua]" \ -elements { title { Index: openacs-4/packages/ae-portlet/www/ae-admin-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ae-portlet/www/ae-admin-portlet.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ae-portlet/www/ae-admin-portlet.tcl 31 Jan 2006 01:41:53 -0000 1.2 +++ openacs-4/packages/ae-portlet/www/ae-admin-portlet.tcl 6 Feb 2006 19:22:20 -0000 1.3 @@ -23,7 +23,7 @@ set url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0] set user_id [ad_conn user_id] set package_admin_p [permission::permission_p -party_id $user_id -object_id $package_id -privilege "admin"] -set actions "[_ assessment.New_Assessment]" +set actions "[_ ae-portlet.New_Evaluation]" if { $package_admin_p == 0} { set m_name "get_all_assessments_admin"