Index: openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_key.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_key.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_key.tcl	17 Nov 2008 13:36:44 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/md/classificationmd/classification_key.tcl	12 Dec 2008 14:25:37 -0000	1.4
@@ -76,23 +76,13 @@
 
         {ims_md_cl_id:text(hidden) {value $ims_md_cl_id}}
 
-    } -select_query  {
-        select *
-        from ims_md_classification_keyword
-        where ims_md_cl_ke_id = :ims_md_cl_ke_id
-            and ims_md_cl_id = :ims_md_cl_id
+    } -select_query_name classificationmd_key_ad_form {
 
     } -edit_data {
-        db_dml do_update \
-            "update ims_md_classification_keyword
-            set keyword_l = :keyword_l,
-            keyword_s = :keyword_s
-            where ims_md_cl_ke_id = :ims_md_cl_ke_id"
+        db_dml do_update {}
 
     } -new_data {
-            db_dml do_insert \
-                "insert into ims_md_classification_keyword (ims_md_cl_ke_id, ims_md_cl_id, keyword_l, keyword_s)
-                values (:ims_md_cl_ke_id, :ims_md_cl_id, :keyword_l, :keyword_s)"
+        db_dml do_insert {}
 
     } -after_submit {
         ad_returnredirect [export_vars -base "classification" {ims_md_cl_id ims_md_id}]
@@ -115,10 +105,4 @@
         }
     }
 
-db_multirow d_cl_key select_cl_key {
-    select '[' || kw.keyword_l || '] ' || kw.keyword_s as keyword,
-        kw.ims_md_cl_ke_id, cl.ims_md_cl_id, cl.ims_md_id
-    from ims_md_classification_keyword kw, ims_md_classification cl
-    where kw.ims_md_cl_id = cl.ims_md_cl_id
-        and kw.ims_md_cl_id = :ims_md_cl_id
-}
+db_multirow d_cl_key select_cl_key {}