Index: openacs-4/packages/lorsm/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/index.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/lorsm/www/index.tcl 21 Apr 2005 16:03:53 -0000 1.5 +++ openacs-4/packages/lorsm/www/index.tcl 26 Apr 2005 08:56:24 -0000 1.6 @@ -46,10 +46,8 @@ -elements { course_name { label "[_ lorsm.Available_Courses]" + display_template {@d_courses.course_url;noquote@} display_col course_name - link_url_eval {${folder_name}/?[export_vars man_id]} - link_html {title "[_ lorsm.Access_Course]"} - } hasmetadata { label "[_ lorsm.Metadata_1]" @@ -97,7 +95,7 @@ } -db_multirow -extend { ims_md_id } d_courses select_d_courses { +db_multirow -extend { ims_md_id course_url } d_courses select_d_courses { select cp.man_id, cp.course_name, @@ -116,6 +114,7 @@ acs.creation_user, acs.creation_date, pf.folder_name, + pf.format_name, acs.context_id, case when cpmc.isenabled = 't' then 'Enabled' @@ -139,5 +138,10 @@ order by acs.creation_date desc } { set ims_md_id $man_id + if { [string eq $format_name "default"] } { + set course_url "$course_name" + } else { + set course_url "$course_name" + } }