Index: openacs-4/packages/lorsm/www/admin/md/metamd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/metamd.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/admin/md/metamd.tcl	6 Mar 2008 13:56:57 -0000	1.2
+++ openacs-4/packages/lorsm/www/admin/md/metamd.tcl	17 Nov 2008 13:36:44 -0000	1.3
@@ -10,113 +10,94 @@
 }
 
 # set context & title
-set context [list [list [export_vars -base "." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"]  "[_ lorsm.Meta_Metadata]"]
+set context [list \
+                [list   [export_vars -base "." ims_md_id] \
+                        "[_ lorsm.IMS_Metadata_Editor]"] \
+                        "[_ lorsm.Meta_Metadata]"]
 set title "[_ lorsm.Meta_MD]"
 
 # Metametadata Catalogentry
 template::list::create \
     -name d_md_cata \
     -multirow d_md_cata \
     -no_data "[_ lorsm.lt_No_Catalog_Entry_Avai]" \
-    -actions [list "[_ lorsm.Add_Catalog-Entry]" [export_vars -base metamd/meta_cata {ims_md_id}] "[_ lorsm.lt_Add_another_Catalog-E]"] \
+    -actions [list  "[_ lorsm.Add_Catalog-Entry]" \
+                    [export_vars -base metamd/meta_cata {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Catalog-E]"] \
+
     -html { style "width: 100%; align: right;" } \
     -elements {
-        catalog {
-            label "[_ lorsm.Catalog_1]"
-        }
-        entry_ls {
-            label "[_ lorsm.Language_Entry]"
-        }
+        catalog { label "[_ lorsm.Catalog_1]" }
+        entry_ls { label "[_ lorsm.Language_Entry]" }
     }
 
 db_multirow d_md_cata select_md_cata {
-    select 
-           catalog,
-    '[' || entry_l || ']' || ' ' || entry_s as entry_ls
-    from 
-           ims_md_metadata_cata
-    where
-           ims_md_id = :ims_md_id
-} 
+    select catalog, '[' || entry_l || ']' || ' ' || entry_s as entry_ls
+    from ims_md_metadata_cata
+    where ims_md_id = :ims_md_id
+}
 
 
 # Metametadata Contrib
 template::list::create \
     -name d_md_cont \
     -multirow d_md_cont \
     -no_data "[_ lorsm.lt_No_Contributors_Avail]" \
-    -actions [list "[_ lorsm.Add_Contributors]" [export_vars -base metamd/meta_cont {ims_md_id}] "[_ lorsm.lt_Add_another_Contribut]"] \
+    -actions [list  "[_ lorsm.Add_Contributors]" \
+                    [export_vars -base metamd/meta_cont {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Contribut]"] \
+
     -html { style "width: 100%; align:right; " } \
     -elements {
-        role {
-            label "[_ lorsm.Role]"
-        }
-        entity {
-            label "[_ lorsm.Entity_1]"
-        }
-        cont_date {
-            label "[_ lorsm.Contribution_Date]"
-        }
-        cont_date_ls {
-            label "[_ lorsm.Description_1]"
-        }
+        role { label "[_ lorsm.Role]" }
+        entity { label "[_ lorsm.Entity_1]" }
+        cont_date { label "[_ lorsm.Contribution_Date]" }
+        cont_date_ls { label "[_ lorsm.Description_1]" }
     }
 
 db_multirow d_md_cont select_md_cont {
-select 
-    mdc.role_v || ' ' || '[' || mdc.role_s || ']' as role,
-    mdce.entity,
-    mdc.cont_date,
-    '[' || mdc.cont_date_l || ']' || ' ' || mdc.cont_date_s as cont_date_ls
-from 
-    ims_md_metadata_contrib mdc, 
-    ims_md_metadata_contrib_entity mdce 
-where 
-    mdc.ims_md_md_cont_id = mdce.ims_md_md_cont_id 
-and
-    mdc.ims_md_id = :ims_md_id
-} 
+    select mdc.role_v || ' ' || '[' || mdc.role_s || ']' as role,
+        mdce.entity, mdc.cont_date,
+        '[' || mdc.cont_date_l || ']' || ' ' || mdc.cont_date_s as cont_date_ls
+    from ims_md_metadata_contrib mdc, ims_md_metadata_contrib_entity mdce
+    where mdc.ims_md_md_cont_id = mdce.ims_md_md_cont_id
+        and mdc.ims_md_id = :ims_md_id
+}
 
 # Metametadata metadatascheme
 template::list::create \
     -name d_md_scheme \
     -multirow d_md_scheme \
     -no_data "[_ lorsm.No_Scheme_Available]" \
-    -actions [list "[_ lorsm.Add_Scheme]" [export_vars -base metamd/meta_scheme {ims_md_id}] "[_ lorsm.Add_another_Scheme]"] \
+    -actions [list  "[_ lorsm.Add_Scheme]" \
+                    [export_vars -base metamd/meta_scheme {ims_md_id}] \
+                    "[_ lorsm.Add_another_Scheme]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        scheme {
-            label ""
-        }
+        scheme { label "" }
     }
 
 db_multirow d_md_scheme select_md_scheme {
-    select 
-           scheme
-    from 
-           ims_md_metadata_scheme
-    where
-           ims_md_id = :ims_md_id
-} 
+    select scheme
+    from ims_md_metadata_scheme
+    where ims_md_id = :ims_md_id
+}
 
 # Metametadata language
 template::list::create \
     -name d_md_lang \
     -multirow d_md_lang \
     -no_data "[_ lorsm.lt_No_Language_Available]" \
-    -actions [list "[_ lorsm.Add_Language]" [export_vars -base metamd/meta_lang {ims_md_id}] "[_ lorsm.lt_Add_another_Languages]"] \
+    -actions [list  "[_ lorsm.Add_Language]" \
+                    [export_vars -base metamd/meta_lang {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Languages]"] \
     -html { style "width: 100%; align: right;" } \
     -elements {
-        language {
-            label ""
-        }
+        language { label "" }
     }
 
 db_multirow d_md_lang select_md_lang {
-    select 
-           language
-    from 
-           ims_md_metadata
-    where
-           ims_md_id = :ims_md_id
-} 
+    select language
+    from ims_md_metadata
+    where ims_md_id = :ims_md_id
+}