+}
+
+# Otherwise, it'd need a POD.
+sub TotalPaid {
+ my ( $time, $time2, $spreadsheet ) = @_;
+ $time2 = $time unless $time2;
+ my $dbh = C4::Context->dbh;
+ my $query = "SELECT * FROM statistics
+ LEFT JOIN borrowers ON statistics.borrowernumber= borrowers.borrowernumber
+ WHERE (statistics.type='payment' OR statistics.type='writeoff') ";
+ if ( $time eq 'today' ) {
+ $query .= " AND datetime = now()";
+ } else {
+ $query .= " AND datetime > '$time'"; # FIXME: use placeholders
+ }
+ if ( $time2 ne '' ) {
+ $query .= " AND datetime < '$time2'"; # FIXME: use placeholders
+ }
+ if ($spreadsheet) {
+ $query .= " ORDER BY branch, type";
+ }
+ $debug and warn "TotalPaid query: $query";
+ my $sth = $dbh->prepare($query);
+ $sth->execute();
+ return @{$sth->fetchall_arrayref({})};