Index: openacs-4/packages/lorsm/www/admin/md/metamd/meta_cata.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/metamd/meta_cata.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/md/metamd/meta_cata.tcl	17 Nov 2008 13:36:45 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/md/metamd/meta_cata.tcl	12 Dec 2008 14:25:38 -0000	1.4
@@ -69,21 +69,13 @@
 
         {ims_md_id:text(hidden) {value $ims_md_id}}
 
-    } -select_query  {
-        select *
-        from ims_md_metadata_cata
-        where ims_md_md_cata_id = :ims_md_md_cata_id
-            and ims_md_id = :ims_md_id
+    } -select_query_name metamd_cata_ad_form {
 
     } -edit_data {
-        db_dml do_update \
-            "update ims_md_metadata_cata
-            set catalog = :catalog, entry_l = :entry_l, entry_s = :entry_s
-            where ims_md_md_cata_id = :ims_md_md_cata_id"
+        db_dml do_update {}
+
     } -new_data {
-        db_dml do_insert \
-            "insert into ims_md_metadata_cata (ims_md_md_cata_id, ims_md_id, catalog, entry_l, entry_s)
-            values(:ims_md_md_cata_id, :ims_md_id, :catalog, :entry_l, :entry_s)"
+        db_dml do_insert {}
 
     } -after_submit {
         ad_returnredirect [export_vars -base "../metamd" {ims_md_id}]
@@ -109,8 +101,4 @@
         }
     }
 
-db_multirow d_md_cata select_md_cata {
-    select catalog, '[' || entry_l || ']' || ' ' || entry_s as entry_ls, ims_md_md_cata_id, ims_md_id
-    from ims_md_metadata_cata
-    where ims_md_id = :ims_md_id
-}
+db_multirow d_md_cata select_md_cata {}