Index: openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_date.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_date.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_date.tcl	17 Nov 2008 13:36:44 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_date.tcl	12 Dec 2008 14:25:37 -0000	1.4
@@ -55,15 +55,10 @@
 
         {ims_md_id:text(hidden) {value $ims_md_id}}
 
-    } -select_query  {
-        select *
-        from ims_md_annotation
-        where ims_md_an_id = :ims_md_an_id
+    } -select_query_name annotationmd_date_ad_form {
 
     } -edit_data {
-        db_dml do_update \
-            "update ims_md_annotation set date = :date, date_l = :date_l, date_s = :date_s
-            where ims_md_an_id = :ims_md_an_id "
+        db_dml do_update {}
 
     } -after_submit {
         ad_returnredirect [export_vars \
@@ -82,8 +77,4 @@
         datels { label "[_ lorsm.Description_1]" }
     }
 
-db_multirow d_an_date select_an_date {
-    select date, '[' || date_l || '] ' || date_s as datels, ims_md_an_id, ims_md_id
-    from ims_md_annotation
-    where ims_md_an_id = :ims_md_an_id
-}
+db_multirow d_an_date select_an_date {}