Index: openacs-4/packages/lorsm/www/md/relationmd/relation_ident.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/relationmd/Attic/relation_ident.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/lorsm/www/md/relationmd/relation_ident.tcl	17 May 2005 17:03:42 -0000	1.3
+++ openacs-4/packages/lorsm/www/md/relationmd/relation_ident.tcl	5 Dec 2006 10:44:59 -0000	1.3.4.1
@@ -45,14 +45,10 @@
     {ims_md_re_id:text(hidden) {value $ims_md_re_id}
     }
 
-} -select_query  {select * from ims_md_relation_resource where ims_md_re_re_id = :ims_md_re_re_id and ims_md_re_id = :ims_md_re_id
+} -select_query_name select_rel_resource \
+  -edit_data {
+        db_dml do_update ""
 
-} -edit_data {
-        db_dml do_update "
-            update ims_md_relation_resource
-            set identifier = :identifier
-            where ims_md_re_re_id = :ims_md_re_re_id "
-
 } -after_submit {
     ad_returnredirect [export_vars -base "relation" {ims_md_re_re_id ims_md_re_id ims_md_id}]
         ad_script_abort
@@ -70,15 +66,4 @@
         }
     }
 
-db_multirow d_re_ident select_re_ident {
-   select rere.identifier,
-           rere.ims_md_re_re_id,
-           re.ims_md_re_id,
-           re.ims_md_id
-    from 
-           ims_md_relation_resource rere,
-           ims_md_relation re
-    where
-           rere.ims_md_re_id = :ims_md_re_id
-    and    re.ims_md_re_id = :ims_md_re_id
-} 
+db_multirow d_re_ident select_re_ident {}