11 |
my $dbh = DBI->connect('dbi:Pg:dbname=dipl','dpavlin','', { RaiseError => 1, AutoCommit => 0 }); |
my $dbh = DBI->connect('dbi:Pg:dbname=dipl','dpavlin','', { RaiseError => 1, AutoCommit => 0 }); |
12 |
|
|
13 |
my $data = $dbh->selectall_arrayref(q{ |
my $data = $dbh->selectall_arrayref(q{ |
14 |
select sum(ttc),ca from citirani group by ca order by sum desc ; |
select sum(ttc),ca,count(ca) from citirani group by ca order by count asc ; |
15 |
}); |
}); |
16 |
print "var data = ",to_json( |
print "var data = ",to_json( |
17 |
# [ map { $_->[0] } @$data ] |
# [ map { $_->[0] } @$data ] |