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.1 -r1.2
--- openacs-4/packages/lorsm/www/md/index.tcl	22 Apr 2004 03:58:13 -0000	1.1
+++ openacs-4/packages/lorsm/www/md/index.tcl	4 Sep 2004 14:51:29 -0000	1.2
@@ -11,4 +11,9 @@
 
 # set context
 set context [list "IMS Metadata Editor"]
-set title "IMS Metadata Editor"
\ No newline at end of file
+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 read_p [permission::permission_p -party_id [ad_conn user_id] -object_id $ims_md_id -privilege read]