Index: openacs-4/packages/evaluation-portlet/www/evaluation-admin-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/www/evaluation-admin-portlet.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/evaluation-portlet/www/evaluation-admin-portlet.tcl 31 May 2004 23:43:10 -0000 1.1 +++ openacs-4/packages/evaluation-portlet/www/evaluation-admin-portlet.tcl 10 Jun 2004 22:00:23 -0000 1.2 @@ -1,26 +1,26 @@ -# /evaluation-portlet/www/evaluation-admin-portlet.tcl - -ad_page_contract { - The display logic for the evaluation admin portlet - - @author jopez@galileo.edu - @creation-date May 2004 - @cvs_id $Id$ -} -properties { - -} - -array set config $cf -set user_id [ad_conn user_id] -set list_of_package_ids $config(package_id) - -if {[llength $list_of_package_ids] > 1} { - # We have a problem! - return -code error "There should be only one instance of weblogger for admin purposes" -} - -set package_id [lindex $list_of_package_ids 0] - -set url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0] - -ad_return_template +# /evaluation-portlet/www/evaluation-admin-portlet.tcl + +ad_page_contract { + The display logic for the evaluation admin portlet + + @author jopez@galileo.edu + @creation-date May 2004 + @cvs_id $Id$ +} -properties { + +} + +array set config $cf +set user_id [ad_conn user_id] +set list_of_package_ids $config(package_id) + +if {[llength $list_of_package_ids] > 1} { + # We have a problem! + return -code error "[_ evaluation-portlet.lt_There_should_be_only_]" +} + +set package_id [lindex $list_of_package_ids 0] + +set url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0] + +ad_return_template