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"
+ }
}