Index: openacs-4/packages/lorsm/www/course-structure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-structure.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/lorsm/www/course-structure.tcl	24 Feb 2005 11:07:05 -0000	1.5
+++ openacs-4/packages/lorsm/www/course-structure.tcl	21 Apr 2005 16:03:53 -0000	1.6
@@ -56,15 +56,17 @@
 	   acs.creation_date,
 	   acs.context_id,
            cpmc.isenabled,
+       pf.format_pretty_name,
            cpmc.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 = :man_id
            and  cp.man_id = cpmc.man_id
            and  cpmc.lorsm_instance_id = :package_id
-           and  cp.parent_man_id = 0"]} {
+           and  cp.parent_man_id = 0
+		   and  cp.course_presentation_format = pf.format_id"]} {
 
     # Sets the variable for display. 
     set display 1
@@ -228,10 +230,5 @@
 set enabler_url [export_vars -base enabler {man_id}]
 set tracker_url [export_vars -base tracker {man_id}]
 set sharer_url  [export_vars -base sharer {man_id folder_id return_url}]
+set formater_url  [export_vars -base formater {man_id return_url}]
 
-#Presentation-related fields
-if {[db_0or1row course_presentation_format "
-    select presentation_name as pformat from lors_available_presentation_formats where presentation_id=(select presentation_id from ims_cp_manifests where man_id=:man_id);
-" ] } { } else {
-	set pformat #lorsm.None#
-}