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