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.46 -r1.47 --- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl 26 Jun 2006 13:28:42 -0000 1.46 +++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl 27 Jun 2006 10:39:11 -0000 1.47 @@ -3540,7 +3540,7 @@ } $temporal_node appendChild $then_node - set else_node [$condition_node selectNodes { following-sibling::*[local-name()='else' and position()=2] } ] + set else_node [$condition_node selectNodes { following-sibling::*[local-name()='else' and position()=1] } ] if { [llength $else_node] == 1 } { $temporal_node appendChild $else_node } elseif { [llength $else_node] > 1 } { Index: openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl 26 Jun 2006 15:41:48 -0000 1.7 +++ openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl 27 Jun 2006 10:39:11 -0000 1.8 @@ -315,7 +315,7 @@ ad_proc -public imsld::roles::get_role_id { -ref:required - -run_id:requir:required + -run_id:required } { Returns the role_id which has a given ref in a run, 0 if no matches found. } {