Lines 152-157
sub prep_report {
Link Here
|
152 |
} |
152 |
} |
153 |
|
153 |
|
154 |
my %lookup; |
154 |
my %lookup; |
|
|
155 |
unless ( scalar @$param_names ) { |
156 |
my @placeholders = $sql =~ /<<([^<>]+)>>/g; |
157 |
foreach my $placeholder (@placeholders) { |
158 |
push @$param_names, $placeholder unless grep { $_ eq $placeholder } @$param_names; |
159 |
} |
160 |
} |
155 |
@lookup{@$param_names} = @$sql_params; |
161 |
@lookup{@$param_names} = @$sql_params; |
156 |
@split = split /<<|>>/, $sql; |
162 |
@split = split /<<|>>/, $sql; |
157 |
for ( my $i = 0 ; $i < $#split / 2 ; $i++ ) { |
163 |
for ( my $i = 0 ; $i < $#split / 2 ; $i++ ) { |
158 |
- |
|
|