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 |
- |
|
|