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.5 -r1.6 --- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl 21 Sep 2005 14:39:56 -0000 1.5 +++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl 22 Sep 2005 10:53:42 -0000 1.6 @@ -1805,12 +1805,10 @@ set organizations [$manifest child all organizations] } set activity_structures [[[[$organizations child all imsld:learning-design] child all imsld:components] child all imsld:activities] child all imsld:activity-structure] - ns_log notice "LARGO [llength $activity_structures] !! \n\n\n" set found_p 0 foreach referenced_activity_structure $activity_structures { set referenced_identifier [string tolower [imsld::parse::get_attribute -node $referenced_activity_structure -attr_name identifier]] - ns_log notice "comparando $ref con $referenced_identifier !! \n\n\n" if { [string eq $ref $referenced_identifier] } { set found_p 1 set referenced_structure_node $referenced_activity_structure