121 |
if (ref($item) eq 'HASH') { |
if (ref($item) eq 'HASH') { |
122 |
foreach my $sf (keys %$item) { |
foreach my $sf (keys %$item) { |
123 |
my $found = 0; |
my $found = 0; |
124 |
ok($n->get_data(\$rec, $fld, $sf, $r, \$found), "v${fld}^${sf}"); |
ok($n->get_data(\$rec, $fld, $sf, $r, \$found), "v${fld}^${sf} / $r"); |
125 |
ok($found, "found"); |
ok($found, "found"); |
126 |
} |
} |
127 |
my $found = 0; |
my $found = 0; |
128 |
ok(! $n->get_data(\$rec, $fld, 'x', $r, \$found), "no v${fld}^x"); |
ok(! $n->get_data(\$rec, $fld, 'x', $r, \$found), "no v${fld}^x / $r"); |
129 |
ok(! $found, "not found"); |
ok(! $found, "not found"); |
130 |
} else { |
} else { |
131 |
my $found = 0; |
my $found = 0; |
132 |
ok($n->get_data(\$rec, $fld, '', $r, \$found), "v${fld}"); |
ok($n->get_data(\$rec, $fld, undef, $r, \$found), "v${fld} / $r"); |
133 |
ok($found, "found"); |
ok($found, "found"); |
134 |
} |
} |
135 |
} |
} |
136 |
my $found = 0; |
my $found = 0; |
137 |
ok(! $n->get_data(\$rec, '999', '', $r, \$found), "no v${fld}"); |
ok(! $n->get_data(\$rec, '999', '', $r, \$found), "no v${fld} / $r"); |
138 |
ok(! $found, "not found"); |
ok(! $found, "not found"); |
139 |
} |
} |
140 |
|
|
212 |
} ], |
} ], |
213 |
}; |
}; |
214 |
|
|
215 |
my $import = { |
$import = { |
216 |
'Tag' => { 'isis' => [ |
'Tag' => { 'isis' => [ |
217 |
{ content => '0 v900^a 1 v900^b 2 v900^c 3 v900^x 4' }, |
{ content => '0 v900^a 1 v900^b 2 v900^c 3 v900^x 4' }, |
218 |
] }, |
] }, |
232 |
} |
} |
233 |
} |
} |
234 |
|
|
235 |
my $import = { |
$import = { |
236 |
'Tag_a' => { 'isis' => [ |
'Tag_a' => { 'isis' => [ |
237 |
{ content => 'v900^a' }, |
{ content => 'v900^a' }, |
238 |
] }, |
] }, |