From b75dc37b0963e26d7a7e6a9e8564107b00cf8fd6 Mon Sep 17 00:00:00 2001 From: miker Date: Wed, 5 Jul 2006 14:25:20 +0000 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm b/Open-ILS/src/perlmods/OpenILS/Utils/ScriptRunner.pm index 18d9f86d0b..86f9348551 100644 --- 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); } -- 2.11.0