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.7 -r1.8
--- openacs-4/packages/lorsm/www/delivery/index.tcl	27 Jun 2006 16:33:21 -0000	1.7
+++ openacs-4/packages/lorsm/www/delivery/index.tcl	11 Jul 2006 02:22:17 -0000	1.8
@@ -18,7 +18,6 @@
 } -errors {
 }
 
-
 set debuglevel 0
 ad_set_client_property lorsm debuglevel $debuglevel
 
@@ -95,4 +94,7 @@
 
 ## FIXME
 
-set folder_name delivery-context-bar
\ No newline at end of file
+db_1row get_format "select folder_name, isscorm from lorsm_course_presentation_formats f, ims_cp_manifests m where f.format_id=m.course_presentation_format and m.man_id=:man_id"
+if {$isscorm} {
+    set folder_name delivery-scorm
+}