Index: openacs-4/packages/lorsm/www/md/lifecyclemd.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/Attic/lifecyclemd.tcl,v
diff -u -r1.4 -r1.4.4.1
--- openacs-4/packages/lorsm/www/md/lifecyclemd.tcl	17 May 2005 17:03:41 -0000	1.4
+++ openacs-4/packages/lorsm/www/md/lifecyclemd.tcl	5 Dec 2006 10:55:00 -0000	1.4.4.1
@@ -30,14 +30,7 @@
         }
     }
 
-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
-} 
+db_multirow d_lf_ver select_lf_ver {} 
 
 # Lifecycle status
 template::list::create \
@@ -55,14 +48,7 @@
         }
     }
 
-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
-} 
+db_multirow d_lf_stat select_lf_stat {} 
 
 
 # Lifecycle Contrib
@@ -75,6 +61,7 @@
     -elements {
         role {
             label "[_ lorsm.Role]"
+	    display_eval {[concat $role_v \[$role_s\]]}
         }
         entity {
             label "[_ lorsm.Entity_1]"
@@ -84,20 +71,8 @@
         }
         cont_date_ls {
             label "[_ lorsm.Description_1]"
+	    display_eval {[concat $cont_date_l \[$cont_date_s\]]}
         }
     }
 
-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
-} 
+db_multirow d_lf_cont select_lf_cont {}
\ No newline at end of file