Index: openacs-4/packages/lorsm/www/course-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-add-3.tcl,v
diff -u -N -r1.9.2.2.2.1 -r1.9.2.2.2.2
--- openacs-4/packages/lorsm/www/course-add-3.tcl	20 Dec 2006 12:31:12 -0000	1.9.2.2.2.1
+++ openacs-4/packages/lorsm/www/course-add-3.tcl	2 Mar 2007 12:01:36 -0000	1.9.2.2.2.2
@@ -226,9 +226,9 @@
 	    # gets metadataschema
 	    set MetadataSchema [lindex [lindex [lors::imsmd::getMDSchema $metadata] 0] 0]
 	    set MetadataSchemaVersion [lindex [lors::imsmd::getMDSchema $metadata] 1]
-	    if {![empty_string_p $MetadataSchema]} {
-		set isSCORM [regexp -nocase scorm $MetadataSchema]
-	    }
+
+	    set isSCORM [lors::imscp::isSCORM -node $manifest]
+
 	    if {$isSCORM == 1} {
 		set man_isscorm 1
 	    } else {