ad_page_contract {
    Displays/Adds IMS Metadata

    @author Ernie Ghiglione (ErnieG@mm.st)
    @creation-date 19 January 2004
    @cvs-id $Id: index.tcl,v 1.2 2008/11/17 13:36:44 juanf Exp $

} {
    ims_md_id:integer
}

# set context
set context [list "[_ lorsm.IMS_Metadata_Editor]"]
set title [list "[_ lorsm.IMS_Metadata_Editor]"]
set link [export_vars -base "md_upload" ims_md_id]

set hasmetadata [lors::imsmd::mdExist -ims_md_id $ims_md_id]
set object_type [acs_object_type $ims_md_id]

set write_p [permission::permission_p \
                -party_id [ad_conn user_id] \
                -object_id $ims_md_id \
                -privilege write]

set read_p [permission::permission_p \
                -party_id [ad_conn user_id] \
                -object_id $ims_md_id \
                -privilege read]
