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: lorsm-admin-portlet.tcl,v 1.6 2008/11/28 12:39:47 juanf Exp $

} -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]

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)

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 url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]

ad_return_template
