Index: openacs-4/packages/lorsm/www/delivery/menu.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/menu.adp,v
diff -u -N -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/lorsm/www/delivery/menu.adp	3 Nov 2006 21:55:01 -0000	1.4.2.2
+++ openacs-4/packages/lorsm/www/delivery/menu.adp	9 Nov 2006 16:25:36 -0000	1.4.2.3
@@ -23,6 +23,7 @@
 //}
 
 function init() {
+<if @isscorm@>
     API = this.document.APIAdapter;
     debug("before systemcheck");
     z=systemcheck();
@@ -38,6 +39,7 @@
 	}
     //document.applets[0].init();
     //alert("JAVA-JAVASCRIPT: i've inited myself");
+</if>
 }
 
 
@@ -220,9 +222,11 @@
 
 
 function debug(message) {
-        parent.frames['talk'].document.write("<FONT SIZE=1> menu.adp : "+message+"<HR>");
+<if @isscorm@>
+	parent.frames['talk'].document.write("<FONT SIZE=1>"+message+"<HR>");
+</if>
         return;
-        }
+}
 
 
 function systemcheck() {
Index: openacs-4/packages/lorsm/www/delivery/menu.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/menu.tcl,v
diff -u -N -r1.3.2.2 -r1.3.2.3
--- openacs-4/packages/lorsm/www/delivery/menu.tcl	5 May 2006 17:00:19 -0000	1.3.2.2
+++ openacs-4/packages/lorsm/www/delivery/menu.tcl	9 Nov 2006 16:25:36 -0000	1.3.2.3
@@ -32,6 +32,8 @@
         set menu_off 0
 }
 
+set isscorm [db_string select_isscorm {select isscorm from ims_cp_manifests where man_id = :man_id}]
+
 proc generate_tree_menu { items index rlevel } {
     # This function is recursive