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 -N -r1.4 -r1.5
--- openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_date.tcl	12 Dec 2008 14:25:37 -0000	1.4
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd/annotation_date.tcl	16 Apr 2010 21:35:12 -0000	1.5
@@ -19,13 +19,13 @@
 
 # set context & title
 set context [list \
-                [list   [export_vars -base ".." ims_md_id] \
-                        "[_ lorsm.IMS_Metadata_Editor]"] \
-                [list   [export_vars -base "../annotationmd" ims_md_id] \
-                        "[_ lorsm.Annotation_MD]"] \
-                [list   [export_vars -base "annotation" {ims_md_id ims_md_an_id}] \
-                        "[_ lorsm.Annotation_Entry]"] \
-                "[_ lorsm.AddEdit_Date]"]
+                 [list   [export_vars -base ".." ims_md_id] \
+                      "[_ lorsm.IMS_Metadata_Editor]"] \
+                 [list   [export_vars -base "../annotationmd" ims_md_id] \
+                      "[_ lorsm.Annotation_MD]"] \
+                 [list   [export_vars -base "annotation" {ims_md_id ims_md_an_id}] \
+                      "[_ lorsm.Annotation_Entry]"] \
+                 "[_ lorsm.AddEdit_Date]"]
 
 set title "[_ lorsm.lt_Edit_Annotation_MD_Da]"
 
@@ -35,6 +35,7 @@
     -name annotationmd_date \
     -cancel_url annotation?ims_md_id=$ims_md_id&ims_md_an_id=$ims_md_an_id \
     -mode edit \
+    -select_query_name annotationmd_date_ad_form \
     -form {
         ims_md_an_id:key(ims_md_annotation_seq)
 
@@ -55,8 +56,6 @@
 
         {ims_md_id:text(hidden) {value $ims_md_id}}
 
-    } -select_query_name annotationmd_date_ad_form {
-
     } -edit_data {
         db_dml do_update {}