Index: openacs-4/packages/lorsm/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lorsm/www/index.tcl	29 Nov 2004 17:48:11 -0000	1.4
+++ openacs-4/packages/lorsm/www/index.tcl	21 Apr 2005 16:03:53 -0000	1.5
@@ -47,7 +47,7 @@
         course_name {
             label "[_ lorsm.Available_Courses]"
             display_col course_name
-            link_url_eval {delivery/?[export_vars man_id]}
+            link_url_eval {${folder_name}/?[export_vars man_id]}
             link_html {title "[_ lorsm.Access_Course]"}
 
         }
@@ -115,6 +115,7 @@
            cp.folder_id,
 	   acs.creation_user,
 	   acs.creation_date,
+	   pf.folder_name,
 	   acs.context_id,
            case
               when cpmc.isenabled = 't' then 'Enabled'
@@ -126,13 +127,15 @@
            end as istrackable
               
     from
-           ims_cp_manifests cp, acs_objects acs, ims_cp_manifest_class cpmc
+           ims_cp_manifests cp, acs_objects acs, ims_cp_manifest_class cpmc, lorsm_course_presentation_formats pf
     where 
            cp.man_id = acs.object_id
     and
            cp.man_id = cpmc.man_id
     and
            cpmc.community_id = :community_id
+	and
+	       cp.course_presentation_format = pf.format_id
     order by acs.creation_date desc
 } {
     set ims_md_id $man_id