Index: openacs-4/packages/lorsm/www/md/generalmd/general_cover.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/generalmd/Attic/general_cover.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/lorsm/www/md/generalmd/general_cover.tcl	17 May 2005 17:23:27 -0000	1.3
+++ openacs-4/packages/lorsm/www/md/generalmd/general_cover.tcl	5 Dec 2006 10:41:44 -0000	1.3.4.1
@@ -51,18 +51,11 @@
     {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
-
-} -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 "
+} -select_query_name select_md_gen_cover \
+  -edit_data {
+        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}]
@@ -90,13 +83,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 {}