- my $cv = $::form->{id} || {};
-
- my $query = "SELECT CONCAT(EXTRACT (MONTH FROM d.transdate),'/',EXTRACT (YEAR FROM d.transdate)) AS date_part,
- count(d.id),
- max(d.dunning_level)
- FROM dunning d
- LEFT JOIN ar a
- ON a.id = d.trans_id
- LEFT JOIN customer c
- ON a.customer_id = c.id
- WHERE c.id = $cv
- GROUP BY EXTRACT (YEAR FROM d.transdate), EXTRACT (MONTH FROM d.transdate), c.id
- ORDER BY EXTRACT (YEAR FROM d.transdate) DESC";
-
- $self->{dun_statistic} = selectall_hashref_query($::form, $dbh, $query);
+ my $cv = $::form->{id};
+
+ my $query = <<SQL;
+ SELECT CONCAT(EXTRACT (MONTH FROM d.transdate),'/',EXTRACT (YEAR FROM d.transdate)) AS date_part,
+ count(d.id),
+ max(d.dunning_level)
+ FROM dunning d
+LEFT JOIN ar a ON a.id = d.trans_id
+LEFT JOIN customer c ON a.customer_id = c.id
+ WHERE c.id = ?
+ GROUP BY EXTRACT (YEAR FROM d.transdate), EXTRACT (MONTH FROM d.transdate), c.id
+ ORDER BY EXTRACT (YEAR FROM d.transdate) DESC
+SQL
+
+ $self->{dun_statistic} = selectall_hashref_query($::form, $dbh, $query, $cv);