Index: openacs-4/packages/lorsm/www/md/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/Attic/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/md/index.tcl	4 Sep 2004 14:51:29 -0000	1.2
+++ openacs-4/packages/lorsm/www/md/index.tcl	14 Nov 2004 12:50:11 -0000	1.3
@@ -14,6 +14,8 @@
 set title "IMS Metadata Editor"
 set link [export_vars -base "md_upload" ims_md_id]
 
-set write_p [permission::permission_p -party_id [ad_conn user_id] -object_id $ims_md_id -privilege write]
+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]