Index: openacs-4/packages/lorsm/www/admin/md/lifecyclemd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/lifecyclemd.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/admin/md/lifecyclemd.tcl	6 Mar 2008 13:56:57 -0000	1.2
+++ openacs-4/packages/lorsm/www/admin/md/lifecyclemd.tcl	17 Nov 2008 13:36:44 -0000	1.3
@@ -10,7 +10,11 @@
 }
 
 # set context & title
-set context [list [list [export_vars -base "." ims_md_id] "IMS Metadata Editor"]  "Lifecycle MD"]
+set context [list \
+                [list \
+                    [export_vars -base "." ims_md_id] \
+                    "IMS Metadata Editor"]  \
+                "Lifecycle MD"]
 
 set title "Lifecycle MD"
 
@@ -19,85 +23,63 @@
     -name d_lf_ver \
     -multirow d_lf_ver \
     -no_data "[_ lorsm.No_Version_Available]" \
-    -actions [list "[_ lorsm.Add_Version]" [export_vars -base lifecyclemd/lifecycle_version {ims_md_id}] "[_ lorsm.Add_Version]"] \
+    -actions [list  "[_ lorsm.Add_Version]" \
+                    [export_vars -base lifecyclemd/lifecycle_version {ims_md_id}] \
+                    "[_ lorsm.Add_Version]"] \
     -html { style "width: 100%; align:right;" } \
     -elements {
-        version_l {
-            label ""
-        }
-        version_s {
-            label ""
-        }
+        version_l { label "" }
+        version_s { label "" }
     }
 
 db_multirow d_lf_ver select_lf_ver {
-    select version_l,
-           version_s
-    from 
-           ims_md_life_cycle
-    where
-           ims_md_id = :ims_md_id
-} 
+    select version_l, version_s
+    from ims_md_life_cycle
+    where ims_md_id = :ims_md_id
+}
 
 # Lifecycle status
 template::list::create \
     -name d_lf_stat \
     -multirow d_lf_stat \
     -no_data "[_ lorsm.No_Status_Available]" \
-    -actions [list "[_ lorsm.Add_Status]" [export_vars -base lifecyclemd/lifecycle_stat {ims_md_id}] "[_ lorsm.Add_Status]"] \
+    -actions [list  "[_ lorsm.Add_Status]" \
+                    [export_vars -base lifecyclemd/lifecycle_stat {ims_md_id}] \
+                    "[_ lorsm.Add_Status]"] \
     -html { style "width: 100%; align:right" } \
     -elements {
-        status_s {
-            label ""
-        }
-        status_v {
-            label ""
-        }
+        status_s { label "" }
+        status_v { label "" }
     }
 
 db_multirow d_lf_stat select_lf_stat {
-    select status_s,
-           status_v
-    from 
-           ims_md_life_cycle
-    where
-           ims_md_id = :ims_md_id
-} 
+    select status_s, status_v
+    from ims_md_life_cycle
+    where ims_md_id = :ims_md_id
+}
 
 
 # Lifecycle Contrib
 template::list::create \
     -name d_lf_cont \
     -multirow d_lf_cont \
     -no_data "[_ lorsm.lt_No_Contributors_Avail]" \
-    -actions [list "[_ lorsm.Add_Contributors]" [export_vars -base lifecyclemd/lifecycle_cont {ims_md_id}] "[_ lorsm.lt_Add_another_Contribut]"] \
+    -actions [list  "[_ lorsm.Add_Contributors]" \
+                    [export_vars -base lifecyclemd/lifecycle_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_lf_cont select_lf_cont {
-select 
-	lfc.role_v || ' ' || '[' || lfc.role_s || ']' as role,
-    lfce.entity,
-    lfc.cont_date,
-    '[' || lfc.cont_date_l || ']' || ' ' || lfc.cont_date_s as cont_date_ls
-from 
-    ims_md_life_cycle_contrib lfc, 
-    ims_md_life_cycle_contrib_entity lfce 
-where 
-    lfc.ims_md_lf_cont_id = lfce.ims_md_lf_cont_id 
-and
-    lfc.ims_md_id = :ims_md_id
-} 
+    select lfc.role_v || ' ' || '[' || lfc.role_s || ']' as role,
+        lfce.entity, lfc.cont_date,
+        '[' || lfc.cont_date_l || ']' || ' ' || lfc.cont_date_s as cont_date_ls
+    from ims_md_life_cycle_contrib lfc, ims_md_life_cycle_contrib_entity lfce
+    where lfc.ims_md_lf_cont_id = lfce.ims_md_lf_cont_id
+        and lfc.ims_md_id = :ims_md_id
+}