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