- print " Nr. Datum Bezeichnung Betrag\n";
- print "----------------------------------------------------------------------------\n";
- while (@row = $sth->fetchrow_array) {
- $descr = substr($row[2],0,50);
- printf "%4d %8s %-50s %9.2f\n", $row[0], sdate($row[1]), $descr, $row[3];
- if ($row[3] < 0.0) {
- $sum_neg -= $row[3];
+ if ($opt_csv) {
+ print '"nr","date","description","taxrate","tax","value"'."\n";
+ } else {
+ print " Nr. Datum Bezeichnung Betrag\n";
+ print "----------------------------------------------------------------------------\n";
+ }
+ while ($row = $sth->fetchrow_hashref) {
+ $descr = substr($row->{description},0,50);
+ if ($opt_csv) {
+ printf '"%d","%s","%s","%.2f","%.2f","%.2f"'."\n", $row->{nr}, isodate($row->{date}), $descr,
+ $row->{tax_percent}, $row->{tax_assigned}, $row->{price};