Index: openacs-4/packages/lorsm/www/admin/md/annotationmd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/annotationmd.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/admin/md/annotationmd.tcl	6 Mar 2008 13:56:57 -0000	1.2
+++ openacs-4/packages/lorsm/www/admin/md/annotationmd.tcl	17 Nov 2008 13:36:44 -0000	1.3
@@ -11,35 +11,35 @@
 }
 
 # set context & title
-set context [list [list [export_vars -base "." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"]  "[_ lorsm.Annotation_MD]"]
+set context [list \
+                [list   [export_vars -base "." ims_md_id] \
+                        "[_ lorsm.IMS_Metadata_Editor]"] \
+                "[_ lorsm.Annotation_MD]"]
 set title "[_ lorsm.Annotation_MD]"
 
 # Annotation
 template::list::create \
     -name d_an_annot \
     -multirow d_an_annot \
     -no_data "[_ lorsm.lt_No_Annotation_Availab]" \
-    -actions [list "[_ lorsm.Add_Annotation]" [export_vars -base annotationmd/annotation_add {ims_md_id}] "[_ lorsm.lt_Add_another_Annotatio_1]"] \
+    -actions [list  "[_ lorsm.Add_Annotation]" \
+                    [export_vars -base annotationmd/annotation_add {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Annotatio_1]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        entity {
-            label "[_ lorsm.Entry_1]"
-        }
-	export {
+        entity { label "[_ lorsm.Entry_1]" }
+        export {
             display_eval {\[View\]}
-            link_url_eval { [export_vars -base "annotationmd/annotation" {ims_md_an_id ims_md_id}] }
+            link_url_eval { [export_vars \
+                                -base "annotationmd/annotation" \
+                                {ims_md_an_id ims_md_id}] }
             link_html {title "[_ lorsm.lt_View_associated_Annot]"}
             html { align center }
         }
     }
 
 db_multirow d_an_annot select_an_annot {
-select 
-    entity,
-    ims_md_an_id,
-    ims_md_id
-from 
-    ims_md_annotation 
-where 
-    ims_md_id = :ims_md_id
-} 
+    select entity, ims_md_an_id, ims_md_id
+    from ims_md_annotation
+    where ims_md_id = :ims_md_id
+}