Index: openacs-4/packages/imsld/catalog/imsld.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/catalog/imsld.en_US.ISO-8859-1.xml,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/imsld/catalog/imsld.en_US.ISO-8859-1.xml	14 Nov 2005 17:33:45 -0000	1.6
+++ openacs-4/packages/imsld/catalog/imsld.en_US.ISO-8859-1.xml	15 Nov 2005 08:54:38 -0000	1.7
@@ -145,14 +145,14 @@
   <msg key="lt_The_referenced_role_p">The referenced role part in 'when role part completed' of the act %identifier% does not exist</msg>
   <msg key="lt_The_resource_resource">The resource %resource_identifier% has a reference to a non existing file (%resource_href%).</msg>
   <msg key="lt_There_cant_be_less_th">There can't be less than %multiplicity% %element_name% and there are %tree_length%. This is not supported, sorry.</msg>
-  <msg key="lt_There_cant_greather_t">There can't greather than $multiplicity $element_name and there are [llength $tree]. This is not supported, sorry.</msg>
+  <msg key="lt_There_cant_greather_t">There can't greather than %multiplicity% %element_name% and there are %tree_length%. This is not supported, sorry.</msg>
   <msg key="lt_There_is_no_role_with">There is no role with the identifier %role_ref% (referenced by an email data)</msg>
   <msg key="lt_There_is_no_role_with_1">There is no role with the identifier %role_ref% (referenced by: manager)</msg>
   <msg key="lt_There_is_no_role_with_2">There is no role with the identifier %role_ref% (referenced by: participant)</msg>
   <msg key="lt_There_is_no_role_with_3">There is no role with the identifier %role_ref% (referenced by: observer)</msg>
   <msg key="lt_There_is_no_role_with_4">There is no role with the identifier %role_ref% (referenced by: moderator)</msg>
   <msg key="lt_There_is_no_role_with_5">There is no role with the identifier %ref% (referenced by: support activity)</msg>
-  <msg key="lt_There_must_be_exactly">There must be exactly $multiplicity $element_name and there are [llength $tree]. This is not supported, sorry.</msg>
+  <msg key="lt_There_must_be_exactly">There must be exactly %multiplicity% %element_name% and there are %tree_length%. This is not supported, sorry.</msg>
   <msg key="lt_There_was_an_error_cr">There was an error creating the folder. Aborting.</msg>
   <msg key="lt_There_was_an_error_cr_1">There was an error creating the tmp_dir to unzip the file.</msg>
   <msg key="lt_There_was_an_error_ge">There was an error generating the tmp_dir to unzip the file.</msg>
Index: openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	14 Nov 2005 09:14:09 -0000	1.13
+++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	15 Nov 2005 08:54:38 -0000	1.14
@@ -245,19 +245,19 @@
         set equal_p 1
     }
 
+    set tree_length [llength $tree]
     if { $equal_p } {
-        if { [llength $tree] != $multiplicity } {
+        if { $tree_length != $multiplicity } {
             ad_return_error "[_ imsld.Error_parsing_file]" "[_ imsld.lt_There_must_be_exactly]"
             ad_script_abort
         }
     } elseif { $greather_than_p } {
-        if { [llength $tree] < $multiplicity } {
-            set tree_length [llength $tree]
+        if { $tree_length < $multiplicity } {
             ad_return_error "[_ imsld.Error_parsing_file]" "[_ imsld.lt_There_cant_be_less_th]"
             ad_script_abort
         } 
     } else {
-        if { [llength $tree] > $multiplicity } {
+        if { $tree_length > $multiplicity } {
             ad_return_error "[_ imsld.Error_parsing_file]" "[_ imsld.lt_There_cant_greather_t]"
             ad_script_abort
         }