From 9cef6d331655de6a1da1ae528043bf93dcde4925 Mon Sep 17 00:00:00 2001 From: Joey Schulze Date: Thu, 3 Jan 2002 15:01:45 +0000 Subject: [PATCH] Ok, let's support both currencies when listing unpaid items --- src/InfoCon/buch/infocon | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/src/InfoCon/buch/infocon b/src/InfoCon/buch/infocon index 8410a65..8feed84 100755 --- a/src/InfoCon/buch/infocon +++ b/src/InfoCon/buch/infocon @@ -143,7 +143,7 @@ sub sales_list printf " Zahlungsausgänge %9.2f\n", -$sum_neg if ($sum_neg > 0); print "==================================================================\n"; - printf " Summe %9.2f\n", $sum_pos - $sum_neg; + printf " Summe %9.2f\n\n", $sum_pos - $sum_neg; } } @@ -306,7 +306,12 @@ while ($i <= $#ARGV) { } elsif ($ARGV[$i] eq "input") { &buchung_input(); } elsif ($ARGV[$i] eq "unpaid") { - &sales_list("paid = 0"); + $saved_table = $table; + $table = "sales_dm"; + &sales_list("paid = 0"); + $table = "sales"; + &sales_list("paid = 0"); + $table = $table_saved; } else { &usage(); } -- 2.20.1