|
Lines 184-198
sub calculate {
Link Here
|
| 184 |
foreach my $i (0 .. scalar @$filters) { |
184 |
foreach my $i (0 .. scalar @$filters) { |
| 185 |
my %cell; |
185 |
my %cell; |
| 186 |
if ( @$filters[$i] ) { |
186 |
if ( @$filters[$i] ) { |
| 187 |
if ( $i == 0) { $cell{crit} = "Cat code"; } |
187 |
if ( $i == 0 ) { $cell{crit} = "Cat code"; $cell{filter} = @$filters[$i]; } |
| 188 |
elsif ( $i == 1 ) { $cell{crit} = "ZIP/Postal code"; } |
188 |
elsif ( $i == 1 ) { $cell{crit} = "ZIP/Postal code"; $cell{filter} = @$filters[$i]; } |
| 189 |
elsif ( $i == 2 ) { $cell{crit} = "Branch code"; } |
189 |
elsif ( $i == 2 ) { $cell{crit} = "Branch code"; $cell{filter} = @$filters[$i]; } |
| 190 |
elsif ( $i == 3 || |
190 |
elsif ( $i == 3 || $i == 4 ) { $cell{crit} = "Date of birth"; $cell{filter} = @$filters[$i]; } |
| 191 |
$i == 4 ) { $cell{crit} = "Date of birth"; } |
191 |
elsif ( $i == 5 ) { $cell{crit} = "Sex"; $cell{filter} = @$filters[$i]; } |
| 192 |
elsif ( $i == 5 ) { $cell{crit} = "Sex"; } |
192 |
elsif ( $i == 6 ) { $cell{crit} = "Sort1"; $cell{filter} = @$filters[$i]; } |
| 193 |
elsif ( $i == 6 ) { $cell{crit} = "Sort1"; } |
193 |
elsif ( $i == 7 ) { $cell{crit} = "Sort2"; $cell{filter} = @$filters[$i]; } |
| 194 |
elsif ( $i == 7 ) { $cell{crit} = "Sort2"; } |
194 |
else { $cell{crit} = "Unknown"; } |
| 195 |
else { $cell{crit} = "Unknown"; } |
|
|
| 196 |
|
195 |
|
| 197 |
push @loopfilter, \%cell; |
196 |
push @loopfilter, \%cell; |
| 198 |
} |
197 |
} |
| 199 |
- |
|
|