|
Lines 40-49
BEGIN {
Link Here
|
| 40 |
); |
40 |
); |
| 41 |
} |
41 |
} |
| 42 |
|
42 |
|
| 43 |
|
|
|
| 44 |
our $fields = get_fields(); |
| 45 |
|
| 46 |
|
| 47 |
=head2 get_fields |
43 |
=head2 get_fields |
| 48 |
Get fields form syspref 'StatisticsFields' |
44 |
Get fields form syspref 'StatisticsFields' |
| 49 |
Returns list of valid fields, defaults to 'location|itype|ccode' |
45 |
Returns list of valid fields, defaults to 'location|itype|ccode' |
|
Lines 79-84
sub get_fields {
Link Here
|
| 79 |
sub construct_query { |
75 |
sub construct_query { |
| 80 |
my $count = shift; |
76 |
my $count = shift; |
| 81 |
my $subquery = shift; |
77 |
my $subquery = shift; |
|
|
78 |
my $fields = get_fields(); |
| 82 |
my @select_fields = split '\|', $fields; |
79 |
my @select_fields = split '\|', $fields; |
| 83 |
my $query = "SELECT COUNT(*) as count_$count,"; |
80 |
my $query = "SELECT COUNT(*) as count_$count,"; |
| 84 |
$query .= join ',', @select_fields; |
81 |
$query .= join ',', @select_fields; |
| 85 |
- |
|
|