Index: openacs-4/packages/lorsm/www/delivery/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/index.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/lorsm/www/delivery/index.tcl	17 Nov 2008 13:38:36 -0000	1.15
+++ openacs-4/packages/lorsm/www/delivery/index.tcl	12 Dec 2008 14:25:40 -0000	1.16
@@ -62,19 +62,7 @@
 
 
 # Get the course name
-if {[db_0or1row manifest "
-    select cp.course_name, cp.fs_package_id, isscorm, pf.folder_name, pf.format_name,
-    case
-        when upper(scorm_type) = 'SCO' then 'delivery-scorm'
-        else 'delivery'
-        end as deliverymethod
-    from ims_cp_manifests cp
-        left join (select man_id, max(scorm_type) as scorm_type from ims_cp_resources group by man_id ) as cpr using (man_id),
-        lorsm_course_presentation_formats pf
-    where
-        cp.man_id = :man_id
-        and cp.parent_man_id = 0
-        and cp.course_presentation_format = pf.format_id "]} {
+if {[db_0or1row manifest {} ]} {
 
     # Course Name
     if {[empty_string_p $course_name]} {
@@ -103,11 +91,7 @@
 ad_set_client_property lorsm currentcourse $man_id
 
 
-set enabled_p [db_string enabled_p \
-                    "select isenabled
-                    from ims_cp_manifest_class
-                    where man_id=:man_id
-                        and community_id=:community_id" -default "f"]
+set enabled_p [db_string enabled_p {} -default "f"]
 
 set item_list [lorsm::get_item_list $man_id $user_id]