1036 |
|
|
1037 |
foreach my $h ( @having ) { |
foreach my $h ( @having ) { |
1038 |
if (defined($lookup->{$database}->{$input}->{$key}->{$h})) { |
if (defined($lookup->{$database}->{$input}->{$key}->{$h})) { |
1039 |
warn "lookup for $database/$input/$key/$h return ",dump($lookup->{$database}->{$input}->{$key}->{$h}),"\n"; |
warn "lookup for $database/$input/$key/$h return ",dump($lookup->{$database}->{$input}->{$key}->{$h}),"\n" if ($debug); |
1040 |
$mfns->{$_}++ foreach keys %{ $lookup->{$database}->{$input}->{$key}->{$h} }; |
$mfns->{$_}++ foreach keys %{ $lookup->{$database}->{$input}->{$key}->{$h} }; |
1041 |
} |
} |
1042 |
} |
} |
1053 |
foreach my $mfn (@mfns) { |
foreach my $mfn (@mfns) { |
1054 |
$rec = $load_row_coderef->( $database, $input, $mfn ); |
$rec = $load_row_coderef->( $database, $input, $mfn ); |
1055 |
|
|
1056 |
warn "got $database/$input/$mfn = ", dump($rec), $/; |
warn "got $database/$input/$mfn = ", dump($rec), $/ if ($debug); |
1057 |
|
|
1058 |
my @vals = $what->(); |
my @vals = $what->(); |
1059 |
|
|
1060 |
push @out, ( @vals ); |
push @out, ( @vals ); |
1061 |
|
|
1062 |
warn "lookup for mfn $mfn returned ", dump(@vals), $/; |
warn "lookup for mfn $mfn returned ", dump(@vals), $/ if ($debug); |
1063 |
} |
} |
1064 |
|
|
1065 |
# if (ref($lookup->{$k}) eq 'ARRAY') { |
# if (ref($lookup->{$k}) eq 'ARRAY') { |