Index: openacs-4/packages/lorsm-portlet/www/lorsm-admin-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm-portlet/www/lorsm-admin-portlet.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/lorsm-portlet/www/lorsm-admin-portlet.tcl 31 May 2005 22:56:08 -0000 1.4 +++ openacs-4/packages/lorsm-portlet/www/lorsm-admin-portlet.tcl 14 Nov 2008 14:50:58 -0000 1.5 @@ -1,16 +1,15 @@ ad_page_contract { The display logic for the LORS Management admin portlet - + @author Ernie Ghiglione (ErnieG@mm.st) @creation-date 2004-04-10 @cvs-id $Id$ } -properties { - + } - set lors_central_package_id [apm_package_id_from_key "lors-central"] set lors_central_url [apm_package_url_from_id $lors_central_package_id] @@ -27,11 +26,10 @@ if {[llength $list_of_package_ids] > 1} { # We have a problem! return -code error "There should be only one instance of lorsm for admin purposes" -} +} -set package_id [lindex $list_of_package_ids 0] +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 - +ad_return_template