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.3 -r1.4 --- openacs-4/packages/lorsm/www/admin/md/metamd.tcl 17 Nov 2008 13:36:44 -0000 1.3 +++ openacs-4/packages/lorsm/www/admin/md/metamd.tcl 12 Dec 2008 14:25:37 -0000 1.4 @@ -30,14 +30,9 @@ catalog { label "[_ lorsm.Catalog_1]" } entry_ls { label "[_ lorsm.Language_Entry]" } } +db_multirow d_md_cata select_md_cata {} -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 -} - # Metametadata Contrib template::list::create \ -name d_md_cont \ @@ -54,16 +49,8 @@ cont_date { label "[_ lorsm.Contribution_Date]" } cont_date_ls { label "[_ lorsm.Description_1]" } } +db_multirow d_md_cont select_md_cont {} -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 -} - # Metametadata metadatascheme template::list::create \ -name d_md_scheme \ @@ -76,13 +63,8 @@ -elements { scheme { label "" } } +db_multirow d_md_scheme select_md_scheme {} -db_multirow d_md_scheme select_md_scheme { - select scheme - from ims_md_metadata_scheme - where ims_md_id = :ims_md_id -} - # Metametadata language template::list::create \ -name d_md_lang \ @@ -95,9 +77,4 @@ -elements { language { label "" } } - -db_multirow d_md_lang select_md_lang { - select language - from ims_md_metadata - where ims_md_id = :ims_md_id -} +db_multirow d_md_lang select_md_lang {}