From: Joey Schulze <joey@infodrom.org>
Date: Thu, 3 Jan 2002 15:01:45 +0000 (+0000)
Subject: Ok, let's support both currencies when listing unpaid items
X-Git-Url: https://git.infodrom.org/?p=infodrom.org%2Fservice.infodrom.org;a=commitdiff_plain;h=9cef6d331655de6a1da1ae528043bf93dcde4925

Ok, let's support both currencies when listing unpaid items
---

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();
 	}