- given ($_) {
- when (/closedate/) {
- $filter{$_}->[0] = @$filters[0];
- $filter{$_}->[1] = @$filters[1];
- my $a = $_;
- given ($podsp) {
- when (1) { $field{$a} = "concat(hex(weekday($a)+1),'-',dayname($a))" }
- when (2) { $field{$a} = "concat(hex(month($a)),'-',monthname($a))" }
- when (3) { $field{$a} = "Year($a)" }
- default { $field{$a} = $a }
- }
- }
- when (/received/) {
- $filter{$_}->[0] = @$filters[2];
- $filter{$_}->[1] = @$filters[3];
- my $a = $_;
- given ($rodsp) {
- when (1) { $field{$a} = "concat(hex(weekday($a)+1),'-',dayname($a))" }
- when (2) { $field{$a} = "concat(hex(month($a)),'-',monthname($a))" }
- when (3) { $field{$a} = "Year($a)" }
- default { $field{$a} = $a }
- }
- }
- when (/bookseller/) {
- $filter{$_}->[0] = @$filters[4];
- }
- when (/homebranch/) {
- $filter{$_}->[0] = @$filters[5];
- }
- when (/ccode/) {
- $filter{$_}->[0] = @$filters[6];
- }
- when (/itemtype/) {
- $filter{$_}->[0] = @$filters[7];
- }
- when (/budget/) {
- $filter{$_}->[0] = @$filters[8];
- }
- when (/sort1/) {
- $filter{$_}->[0] = @$filters[9];
+ if ( $_ =~ /closedate/ ) {
+ $filter{$_}->[0] = @$filters[0];
+ $filter{$_}->[1] = @$filters[1];
+ my $a = $_;
+ if ( $podsp == 1 ) {
+ $field{$a} = "concat(hex(weekday($a)+1),'-',dayname($a))";
+ } elsif ( $podsp == 2 ) {
+ $field{$a} = "concat(hex(month($a)),'-',monthname($a))";
+ } elsif ( $podsp == 3 ) {
+ $field{$a} = "Year($a)";
+ } else {
+ $field{$a} = $a;