Index: openacs-4/packages/lorsm/www/admin/course-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-add-3.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/admin/course-add-3.tcl	31 Dec 2006 14:34:21 -0000	1.2
+++ openacs-4/packages/lorsm/www/admin/course-add-3.tcl	24 Jan 2007 02:36:30 -0000	1.3
@@ -219,37 +219,17 @@
         # NOTE: it requires that the manifest contains a metadata record (which is not always the case) :-(
         ##
 
-        # gets metadata node
-        set metadata [$manifest child all metadata]
-
-        if { ![empty_string_p $metadata] } {
-	    # 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]
-	    }
-	    if {$isSCORM == 1} {
-		set man_isscorm 1
-	    } else {
-		set man_isscorm 0
-	    }
-	} else {
-	    set man_isscorm 0
-	}
         # use isscorm proc!
         set man_isscorm [lors::imscp::isSCORM -node $manifest]
 
-        if { ![empty_string_p $metadata] } {
-            set man_hasmetadata 1
-        } else {
-            set man_hasmetadata 0
-        }
+        # gets metadata node
+        set metadata [$manifest child all metadata]
 
+        set man_hasmetadata [expr {$metadata ne ""}]
         
         ## Gets manifest title
 
-        if { ![empty_string_p $metadata] } {
+        if { $metadata ne "" } {
             set lom [lindex [lors::imsmd::getLOM $metadata $tmp_dir] 0]
             set prefix [lindex [lors::imsmd::getLOM $metadata $tmp_dir] 1]
             if { $lom != 0 } {