Index: openacs-4/packages/lorsm/lib/user-lorsm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/lib/user-lorsm.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/lorsm/lib/user-lorsm.tcl 21 Apr 2005 16:03:52 -0000 1.6
+++ openacs-4/packages/lorsm/lib/user-lorsm.tcl 26 Apr 2005 08:56:23 -0000 1.7
@@ -17,6 +17,9 @@
#set package_id $list_of_packages_ids
+# link_url_eval {[site_node::get_url_from_object_id -object_id $lorsm_instance_id]${folder_name}/?[export_vars man_id]}
+# link_html {title "[_ lorsm.Access_Course]" target "_blank"}
+
template::list::create \
-name d_courses \
@@ -28,10 +31,8 @@
-elements {
course_name {
label "[_ lorsm.Course_Name_1]"
- display_col course_name
+ display_template {@d_courses.course_url;noquote@}
html { width 70% }
- link_url_eval {[site_node::get_url_from_object_id -object_id $lorsm_instance_id]${folder_name}/?[export_vars man_id]}
- link_html {title "[_ lorsm.Access_Course]"}
}
subject {
label "[_ lorsm.Subject]"
@@ -56,7 +57,7 @@
foreach package $package_id {
- db_multirow -extend { ims_md_id last_viewed total_item_count viewed_item_count viewed_percent delivery_folder} -append d_courses select_d_courses {
+ db_multirow -extend { ims_md_id last_viewed total_item_count viewed_item_count viewed_percent course_url } -append d_courses select_d_courses {
select
cp.man_id,
cp.course_name,
@@ -67,6 +68,7 @@
acs.creation_user,
acs.creation_date,
pf.folder_name,
+ pf.format_name,
acs.context_id,
cpmc.community_id,
cpmc.lorsm_instance_id
@@ -86,6 +88,11 @@
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"
+ }
# DEDS: these are expensive
# and for demo purposes only