Index: openacs-4/packages/lorsm/www/admin/md/generalmd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/generalmd.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/admin/md/generalmd.tcl	6 Mar 2008 13:56:57 -0000	1.2
+++ openacs-4/packages/lorsm/www/admin/md/generalmd.tcl	17 Nov 2008 13:36:44 -0000	1.3
@@ -12,32 +12,31 @@
 }
 
 # set context & title
-set context [list [list [export_vars -base "." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"]  "[_ lorsm.General_MD]"]
+set context [list \
+                [list   [export_vars -base "." ims_md_id] \
+                        "[_ lorsm.IMS_Metadata_Editor]"]  \
+                        "[_ lorsm.General_MD]"]
+
 set title "[_ lorsm.General_MD]"
 
 # General Title
 template::list::create \
     -name d_gen_titles \
     -multirow d_gen_titles \
     -no_data "[_ lorsm.No_Titles_Available]" \
-    -actions [list "[_ lorsm.Add_Title]" [export_vars -base generalmd/general_title {ims_md_id}] "[_ lorsm.Add_another_title]"] \
+    -actions [list  "[_ lorsm.Add_Title]" \
+                    [export_vars -base generalmd/general_title {ims_md_id}] \
+                    "[_ lorsm.Add_another_title]"] \
     -html { style "width: 100%; align: right" } \
     -elements {
-        title_l {
-            label ""
-        }
-        title_s {
-            label ""
-        }
+        title_l { label "" }
+        title_s { label "" }
     }
 
 db_multirow d_gen_titles select_ge_titles {
-    select title_l,
-           title_s
-    from 
-           ims_md_general_title
-    where
-           ims_md_id = :ims_md_id
+    select title_l, title_s
+    from ims_md_general_title
+    where ims_md_id = :ims_md_id
 } {
     set item_url [export_vars -base "item" { ims_md_id }]
 }
@@ -47,55 +46,41 @@
     -name d_gen_desc \
     -multirow d_gen_desc \
     -no_data "[_ lorsm.lt_No_Description_Availa]" \
-    -actions [list "[_ lorsm.Add_Description]" [export_vars -base generalmd/general_desc {ims_md_id}] "[_ lorsm.lt_Add_another_Descripti]"] \
+    -actions [list  "[_ lorsm.Add_Description]" \
+                    [export_vars -base generalmd/general_desc {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Descripti]"] \
     -html { style "width: 100%; align: right;" } \
     -elements {
-        descrip_l {
-            label ""
-        }
-        descrip_s {
-            label ""
-        }
+        descrip_l { label "" }
+        descrip_s { label "" }
     }
 
 db_multirow d_gen_desc select_ge_desc {
-    select descrip_l,
-           descrip_s
-    from 
-           ims_md_general_desc
-    where
-           ims_md_id = :ims_md_id
-} 
+    select descrip_l, descrip_s
+    from ims_md_general_desc
+    where ims_md_id = :ims_md_id
+}
 
 # General Catalog-entry
 template::list::create \
     -name d_gen_cata \
     -multirow d_gen_cata \
     -no_data "[_ lorsm.lt_No_Catalog_Entry_Avai]" \
-    -actions [list "[_ lorsm.Add_Catalog-Entry]" [export_vars -base generalmd/general_cata {ims_md_id}] "[_ lorsm.lt_Add_another_Catalog-E]"] \
+    -actions [list  "[_ lorsm.Add_Catalog-Entry]" \
+                    [export_vars -base generalmd/general_cata {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Catalog-E]"] \
     -html { style "width: 100%; align: right;" } \
     -elements {
-        catalog {
-            label ""
-        }
-        entry_l {
-            label ""
-        }
-        entry_s {
-            label ""
-        }
+        catalog { label "" }
+        entry_l { label "" }
+        entry_s { label "" }
     }
 
 db_multirow d_gen_cata select_ge_cata {
-    select 
-           catalog,
-           entry_l,
-           entry_s
-    from 
-           ims_md_general_cata
-    where
-           ims_md_id = :ims_md_id
-} 
+    select catalog, entry_l, entry_s
+    from ims_md_general_cata
+    where ims_md_id = :ims_md_id
+}
 
 
 
@@ -104,99 +89,78 @@
     -name d_gen_lang \
     -multirow d_gen_lang \
     -no_data "[_ lorsm.lt_No_Language_Available]" \
-    -actions [list "[_ lorsm.Add_Language]"  [export_vars -base generalmd/general_lang {ims_md_id}] "[_ lorsm.Add_another_Language]"] \
+    -actions [list  "[_ lorsm.Add_Language]"  \
+                    [export_vars -base generalmd/general_lang {ims_md_id}] \
+                    "[_ lorsm.Add_another_Language]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        language {
-            label ""
-        }
+        language { label "" }
     }
 
 db_multirow d_gen_lang select_ge_lang {
-    select 
-           language
-    from 
-           ims_md_general_lang
-    where
-           ims_md_id = :ims_md_id
-} 
+    select language
+    from ims_md_general_lang
+    where ims_md_id = :ims_md_id
+}
 
 # General Keywords
 template::list::create \
     -name d_gen_key \
     -multirow d_gen_key \
     -no_data "[_ lorsm.lt_No_Keywords_Available]" \
-    -actions [list "[_ lorsm.Add_Keywords]" [export_vars -base generalmd/general_key {ims_md_id}] "[_ lorsm.Add_another_Keywords]"] \
+    -actions [list  "[_ lorsm.Add_Keywords]" \
+                    [export_vars -base generalmd/general_key {ims_md_id}] \
+                    "[_ lorsm.Add_another_Keywords]"] \
     -html { style "width: 100%; align:right" } \
     -elements {
-        keyword_l {
-            label ""
-        }
-        keyword_s {
-            label ""
-        }
+        keyword_l { label "" }
+        keyword_s { label "" }
     }
 
 db_multirow d_gen_key select_ge_key {
-    select 
-           keyword_l,
-           keyword_s
-    from 
-           ims_md_general_key
-    where
-           ims_md_id = :ims_md_id
-} 
+    select keyword_l, keyword_s
+    from ims_md_general_key
+    where ims_md_id = :ims_md_id
+}
 
 # General Coverage
 template::list::create \
     -name d_gen_cover \
     -multirow d_gen_cover \
     -no_data "[_ lorsm.lt_No_Coverage_Available]" \
-    -actions [list "[_ lorsm.Add_Coverage]" [export_vars -base generalmd/general_cover {ims_md_id}] "[_ lorsm.Add_another_Coverage]"] \
+    -actions [list  "[_ lorsm.Add_Coverage]" \
+                    [export_vars -base generalmd/general_cover {ims_md_id}] \
+                    "[_ lorsm.Add_another_Coverage]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        cover_l {
-            label ""
-        }
-        cover_s {
-            label ""
-        }
+        cover_l { label "" }
+        cover_s { label "" }
     }
 
 db_multirow d_gen_cover select_ge_cover {
-    select 
-           cover_l,
-           cover_s
-    from 
-           ims_md_general_cover
-    where
-           ims_md_id = :ims_md_id
+    select cover_l, cover_s
+    from ims_md_general_cover
+    where ims_md_id = :ims_md_id
 }
 
 # General Structure
 template::list::create \
     -name d_gen_struc \
     -multirow d_gen_struc \
     -no_data "[_ lorsm.lt_No_Structure_Availabl]" \
-    -actions [list "[_ lorsm.Add_Structure]" [export_vars -base generalmd/general_struc {ims_md_id}] "[_ lorsm.lt_Add_another_Structure]"] \
+    -actions [list  "[_ lorsm.Add_Structure]" \
+                    [export_vars -base generalmd/general_struc {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Structure]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        structure_s {
-            label ""
-        }
-        structure_v {
-            label ""
-        }
+        structure_s { label "" }
+        structure_v { label "" }
     }
 
 db_multirow d_gen_struc select_ge_struc {
-    select 
-           structure_s,
-           structure_v
-    from 
-           ims_md_general
-    where
-           ims_md_id = :ims_md_id
+    select structure_s, structure_v
+    from ims_md_general
+    where ims_md_id = :ims_md_id
 }
 
 
@@ -205,23 +169,17 @@
     -name d_gen_aggl \
     -multirow d_gen_aggl \
     -no_data "[_ lorsm.lt_No_Aggregation_Level_]" \
-    -actions [list "[_ lorsm.lt_Add_Aggregation_Level]" [export_vars -base generalmd/general_aggl {ims_md_id}]  "[_ lorsm.lt_Add_another_Aggregati]"] \
+    -actions [list  "[_ lorsm.lt_Add_Aggregation_Level]" \
+                    [export_vars -base generalmd/general_aggl {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Aggregati]"] \
     -html { style "width: 100%; align: right;" } \
     -elements {
-        agg_level_s {
-            label ""
-        }
-        agg_level_v {
-            label ""
-        }
+        agg_level_s { label "" }
+        agg_level_v { label "" }
     }
 
 db_multirow d_gen_aggl select_ge_aggl {
-    select 
-           agg_level_s,
-           agg_level_v
-    from 
-           ims_md_general
-    where
-           ims_md_id = :ims_md_id
+    select agg_level_s, agg_level_v
+    from ims_md_general
+    where ims_md_id = :ims_md_id
 }