Index: openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.tcl	17 Nov 2008 13:37:55 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd/technical_req.tcl	12 Dec 2008 14:25:39 -0000	1.4
@@ -81,27 +81,13 @@
 
         {ims_md_id:text(hidden) {value $ims_md_id}}
 
-    } -select_query  {
-        select *
-        from ims_md_technical_requirement
-        where ims_md_te_rq_id = :ims_md_te_rq_id
-            and ims_md_id = :ims_md_id
+    } -select_query_name technicalmd_req_ad_form {
 
     } -edit_data {
-        db_dml do_update \
-            "update ims_md_technical_requirement
-            set type_v = :type_v,
-                type_s = :type_s,
-                name_v = :name_v,
-                name_s = :type_s,
-                min_version = :min_version,
-                max_version = :max_version
-            where ims_md_te_rq_id = :ims_md_te_rq_id"
+        db_dml do_update {}
 
     } -new_data {
-        db_dml do_insert \
-                "insert into ims_md_technical_requirement (ims_md_te_rq_id, ims_md_id, type_s, type_v, name_s, name_v, min_version, max_version)
-                values (:ims_md_te_rq_id, :ims_md_id, :type_s, :type_v, :type_s, :name_v, :min_version, :max_version)"
+        db_dml do_insert {}
 
     } -after_submit {
         ad_returnredirect [export_vars -base "../technicalmd" {ims_md_id}]
@@ -129,10 +115,4 @@
         }
     }
 
-db_multirow d_te_req select_te_req {
-    select  '[' || type_s || ']' || ' ' || type_v as type,
-            '[' || name_s || ']' || ' ' || name_v as name,
-        min_version, max_version, ims_md_te_rq_id, ims_md_id
-    from ims_md_technical_requirement
-    where ims_md_id = :ims_md_id
-}
+db_multirow d_te_req select_te_req {}