Index: openacs-4/packages/lorsm/www/admin/md/generalmd/general_cover.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd/general_cover.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lorsm/www/admin/md/generalmd/general_cover.tcl	17 Nov 2008 13:36:45 -0000	1.4
+++ openacs-4/packages/lorsm/www/admin/md/generalmd/general_cover.tcl	12 Dec 2008 14:25:38 -0000	1.5
@@ -62,21 +62,13 @@
 
         {ims_md_id:text(hidden) {value $ims_md_id}}
 
-    } -select_query  {
-        select *
-        from ims_md_general_cover
-        where ims_md_ge_cove_id = :ims_md_ge_cove_id
-            and ims_md_id = :ims_md_id
+    } -select_query_name generalmd_cover_ad_form {
 
     } -edit_data {
-        db_dml do_update \
-            "update ims_md_general_cover
-            set cover_l = :cover_l, cover_s = :cover_s
-            where ims_md_ge_cove_id = :ims_md_ge_cove_id "
+        db_dml do_update {}
+
     } -new_data {
-        db_dml do_insert \
-            "insert into ims_md_general_cover (ims_md_ge_cove_id, ims_md_id, cover_l, cover_s)
-            values(:ims_md_ge_cove_id, :ims_md_id, :cover_l, :cover_s)"
+        db_dml do_insert {}
 
     } -after_submit {
         ad_returnredirect [export_vars -base "../generalmd" {ims_md_id}]
@@ -102,8 +94,4 @@
         }
     }
 
-db_multirow d_gen_cover select_ge_cover {
-    select cover_l, cover_s, ims_md_ge_cove_id, ims_md_id
-    from ims_md_general_cover
-    where ims_md_id = :ims_md_id
-}
+db_multirow d_gen_cover select_ge_cover {}