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 -N -r1.3 -r1.4 --- openacs-4/packages/lorsm-portlet/www/lorsm-admin-portlet.tcl 17 May 2005 17:53:36 -0000 1.3 +++ openacs-4/packages/lorsm-portlet/www/lorsm-admin-portlet.tcl 31 May 2005 22:56:08 -0000 1.4 @@ -10,6 +10,17 @@ } + +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] + +if { ![string equal $lors_central_package_id 0] } { + set use_lc_p [parameter::get -parameter "UploadUsingLorsCentralP" -package_id $lors_central_package_id] +} else { + set use_lc_p 0 +} + + array set config $cf set list_of_package_ids $config(package_id) @@ -23,3 +34,4 @@ set url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0] ad_return_template +