Index: openacs-4/packages/lorsm/www/admin/md/technicalmd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/technicalmd.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/admin/md/technicalmd.tcl	6 Mar 2008 13:56:57 -0000	1.2
+++ openacs-4/packages/lorsm/www/admin/md/technicalmd.tcl	17 Nov 2008 13:36:44 -0000	1.3
@@ -10,183 +10,150 @@
 }
 
 # set context & title
-set context [list [list [export_vars -base "." ims_md_id] "[_ lorsm.IMS_Metadata_Editor]"]  "[_ lorsm.Technical_MD]"]
+set context [list \
+                [list   [export_vars -base "." ims_md_id] \
+                        "[_ lorsm.IMS_Metadata_Editor]"]  \
+                        "[_ lorsm.Technical_MD]"]
+
 set title "[_ lorsm.Technical_MD]"
 
 # Technical Format
 template::list::create \
     -name d_te_form \
     -multirow d_te_form \
     -no_data "[_ lorsm.No_Format_Available]" \
-    -actions [list "[_ lorsm.Add_Format]" [export_vars -base technicalmd/technical_form {ims_md_id}] "[_ lorsm.Add_another_Format]"] \
+    -actions [list  "[_ lorsm.Add_Format]" \
+                    [export_vars -base technicalmd/technical_form {ims_md_id}] \
+                    "[_ lorsm.Add_another_Format]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        format {
-            label ""
-        }
+        format { label "" }
     }
 
 db_multirow d_te_form select_te_form {
-    select 
-           format
-    from 
-           ims_md_technical_format
-    where
-           ims_md_id = :ims_md_id
-} 
+    select format
+    from ims_md_technical_format
+    where ims_md_id = :ims_md_id
+}
 
 # Technical Size
 template::list::create \
     -name d_te_size \
     -multirow d_te_size \
     -no_data "[_ lorsm.No_Size_Available]" \
-    -actions [list "[_ lorsm.Add_Size]" [export_vars -base technicalmd/technical_size {ims_md_id}] "[_ lorsm.Add_another_Size]"] \
+    -actions [list  "[_ lorsm.Add_Size]" \
+                    [export_vars -base technicalmd/technical_size {ims_md_id}] \
+                    "[_ lorsm.Add_another_Size]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        t_size_bytes {
-            label ""
-        }
+        t_size_bytes { label "" }
     }
 
 db_multirow d_te_size select_te_size {
-    select 
-           t_size || ' bytes' as t_size_bytes
-    from 
-           ims_md_technical
-    where
-           ims_md_id = :ims_md_id
-} 
+    select t_size || ' bytes' as t_size_bytes
+    from ims_md_technical
+    where ims_md_id = :ims_md_id
+}
 
 # Technical Location
 template::list::create \
     -name d_te_loca \
     -multirow d_te_loca \
     -no_data "No Location Available" \
-    -actions [list "Add Location" [export_vars -base technicalmd/technical_loca {ims_md_id}] "Add another Location"] \
+    -actions [list "Add Location" \
+                    [export_vars -base technicalmd/technical_loca {ims_md_id}] \
+                    "Add another Location"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        type {
-            label ""
-        }
-        location {
-            label ""
-        }
+        type { label "" }
+        location { label "" }
     }
 
 db_multirow d_te_loca select_te_loca {
-    select 
-           type, 
-           location
-    from 
-           ims_md_technical_location
-    where
-           ims_md_id = :ims_md_id
-} 
+    select type, location
+    from ims_md_technical_location
+    where ims_md_id = :ims_md_id
+}
 
-# Technical Requirements 
+# Technical Requirements
 template::list::create \
     -name d_te_req \
     -multirow d_te_req \
     -no_data "[_ lorsm.lt_No_Requirements_Avail]" \
-    -actions [list "[_ lorsm.Add_Requirements]" [export_vars -base technicalmd/technical_req {ims_md_id}] "[_ lorsm.lt_Add_another_Requireme]"] \
+    -actions [list  "[_ lorsm.Add_Requirements]" \
+                    [export_vars -base technicalmd/technical_req {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Requireme]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        type {
-            label "[_ lorsm.Type]"
-        }
-        name {
-            label "[_ lorsm.Name]"
-        }
-        min_version {
-            label "[_ lorsm.Min_Version]"
-        }
-        max_version {
-            label "[_ lorsm.Max_Version]"
-        }
+        type { label "[_ lorsm.Type]" }
+        name { label "[_ lorsm.Name]" }
+        min_version { label "[_ lorsm.Min_Version]" }
+        max_version { label "[_ lorsm.Max_Version]" }
     }
 
 db_multirow d_te_req select_te_req {
-    select 
-    '[' || type_s || ']' || ' ' || type_v as type, 
-    '[' || name_s || ']' || ' ' || name_v as name,
-    min_version,
-    max_version
-    from 
-           ims_md_technical_requirement
-    where
-           ims_md_id = :ims_md_id
-} 
+    select '[' || type_s || ']' || ' ' || type_v as type,
+        '[' || name_s || ']' || ' ' || name_v as name,
+    min_version, max_version
+    from ims_md_technical_requirement
+    where ims_md_id = :ims_md_id
+}
 
 # Technical Installation Remarks
 template::list::create \
     -name d_te_inst \
     -multirow d_te_inst \
     -no_data "[_ lorsm.lt_No_Installation_Remar]" \
-    -actions [list "[_ lorsm.lt_Add_Installation_Rema]" [export_vars -base technicalmd/technical_inst {ims_md_id}] "[_ lorsm.lt_Add_another_Installat]"] \
+    -actions [list  "[_ lorsm.lt_Add_Installation_Rema]" \
+                    [export_vars -base technicalmd/technical_inst {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Installat]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        instl_rmrks {
-            label ""
-        }
+        instl_rmrks { label "" }
     }
 
 db_multirow d_te_inst select_te_inst {
-    select 
-    '[' || instl_rmrks_l || ']' || ' ' || instl_rmrks_s as instl_rmrks
-    from 
-           ims_md_technical
-    where
-           ims_md_id = :ims_md_id
+    select '[' || instl_rmrks_l || ']' || ' ' || instl_rmrks_s as instl_rmrks
+    from ims_md_technical
+    where ims_md_id = :ims_md_id
 }
 
 # Technical Other Platform Requirements
 template::list::create \
     -name d_te_otr \
     -multirow d_te_otr \
     -no_data "[_ lorsm.lt_No_Other_Platform_Req]" \
-    -actions [list "[_ lorsm.lt_Add_Other_Platform_Re]" [export_vars -base technicalmd/technical_otr {ims_md_id}] "[_ lorsm.lt_Add_another_Other_Pla]"] \
+    -actions [list  "[_ lorsm.lt_Add_Other_Platform_Re]" \
+                    [export_vars -base technicalmd/technical_otr {ims_md_id}] \
+                    "[_ lorsm.lt_Add_another_Other_Pla]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        otr_plt {
-            label ""
-        }
+        otr_plt { label "" }
     }
 
 db_multirow d_te_otr select_te_otr {
-    select 
-    '[' || otr_plt_l || ']' || ' ' || otr_plt_s as otr_plt
-    from 
-           ims_md_technical
-    where
-           ims_md_id = :ims_md_id
+    select '[' || otr_plt_l || ']' || ' ' || otr_plt_s as otr_plt
+    from ims_md_technical
+    where ims_md_id = :ims_md_id
 }
 
 # Technical Duration
 template::list::create \
     -name d_te_dur \
     -multirow d_te_dur \
     -no_data "[_ lorsm.lt_No_Duration_Available]" \
-    -actions [list "[_ lorsm.Add_Duration]" [export_vars -base technicalmd/technical_dur {ims_md_id}] "[_ lorsm.Add_another_Duration]"] \
+    -actions [list  "[_ lorsm.Add_Duration]" \
+                    [export_vars -base technicalmd/technical_dur {ims_md_id}] \
+                    "[_ lorsm.Add_another_Duration]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        duration_sec {
-            label ""
-        }
-        duration_l {
-	    label ""
-	}
-	duration_s {
-	    label ""
-	}
+        duration_sec { label "" }
+        duration_l { label "" }
+        duration_s { label "" }
     }
 
 db_multirow d_te_dur select_te_dur {
-    select 
-    duration_l,
-    duration_s,
-    duration || 's' as duration_sec
-    from 
-           ims_md_technical
-    where
-           ims_md_id = :ims_md_id
+    select duration_l, duration_s, duration || 's' as duration_sec
+    from ims_md_technical
+    where ims_md_id = :ims_md_id
 }