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"