Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_form.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_form.tcl	17 Nov 2008 13:37:55 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_form.tcl	12 Dec 2008 14:25:38 -0000	1.4
@@ -54,22 +54,13 @@
 
         {ims_md_id:text(hidden) {value $ims_md_id}}
 
-    } -select_query  {
-        select *
-        from ims_md_technical_format
-        where ims_md_te_fo_id = :ims_md_te_fo_id
-            and ims_md_id = :ims_md_id
+    } -select_query_name technicalmd_form_ad_form {
 
     } -edit_data {
-        db_dml do_update \
-            "update ims_md_technical_format
-            set format = :format
-            where ims_md_te_fo_id = :ims_md_te_fo_id "
+        db_dml do_update {}
 
     } -new_data {
-       db_dml do_insert \
-            "insert into ims_md_technical_format (ims_md_te_fo_id, ims_md_id, format)
-            values(:ims_md_te_fo_id, :ims_md_id, :format)"
+        db_dml do_insert {}
 
     } -after_submit {
         ad_returnredirect [export_vars -base "../technicalmd" {ims_md_id}]
@@ -94,8 +85,4 @@
         }
     }
 
-db_multirow d_te_form select_te_form {
-    select format, ims_md_te_fo_id, ims_md_id
-    from ims_md_technical_format
-    where ims_md_id = :ims_md_id
-}
+db_multirow d_te_form select_te_form {}