Index: openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_desc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_desc.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_desc.tcl	17 Nov 2008 13:36:44 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_desc.tcl	12 Dec 2008 14:25:37 -0000	1.4
@@ -65,22 +65,13 @@
 
         {ims_md_an_id:text(hidden) {value $ims_md_an_id}}
 
-    } -select_query  {
-        select *
-        from ims_md_annotation_descrip
-        where ims_md_an_de_id = :ims_md_an_de_id
-            and ims_md_an_id = :ims_md_an_id
+    } -select_query_name annotationmd_desc_ad_form {
 
     } -edit_data {
-        db_dml do_update \
-            "update ims_md_annotation_descrip
-                set descrip_l = :descrip_l, descrip_s = :descrip_s
-            where ims_md_an_de_id = :ims_md_an_de_id"
+        db_dml do_update {}
 
     } -new_data {
-        db_dml do_insert \
-            "insert into ims_md_annotation_descrip (ims_md_an_de_id, ims_md_an_id, descrip_l, descrip_s)
-            values (:ims_md_an_de_id, :ims_md_an_id, :descrip_l, :descrip_s)"
+        db_dml do_insert {}
 
     } -after_submit {
         ad_returnredirect [export_vars -base "annotation" {ims_md_an_id ims_md_id}]
@@ -106,10 +97,4 @@
         }
     }
 
-db_multirow d_an_desc select_an_desc {
-    select '[' || ande.descrip_l || '] ' || ande.descrip_s as desc,
-        ande.ims_md_an_de_id, an.ims_md_an_id, an.ims_md_id
-    from ims_md_annotation_descrip ande, ims_md_annotation an
-    where ande.ims_md_an_id = an.ims_md_an_id
-        and ande.ims_md_an_id = :ims_md_an_id
-}
+db_multirow d_an_desc select_an_desc {}