complex FM objects use arrays, and deep arrays were borken

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4892 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm b/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm
index 18d9f86..86f9348 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm
@@ -338,10 +338,10 @@ sub insert_array {
        my $ind = 0;
        for my $v ( @$array ) {
                if (ref $v) {
-                       my $elobj = $ctx->object_by_path('__tmp_arr_el'.$__array_id);
-                       $self->insert('__tmp_arr_el'.$__array_id, $v);
+                       my $tmp_index = $__array_id++;
+                       my $elobj = $ctx->object_by_path('__tmp_arr_el'.$tmp_index);
+                       $self->insert('__tmp_arr_el'.$tmp_index, $v);
                        $ctx->array_set_element_as_object( $a, $ind, $elobj );
-                       $__array_id++;
                } else {
                        $ctx->array_set_element( $a, $ind, $v ) if defined($v);
                }