Store date when paying an item

[infodrom.org/service.infodrom.org] / src / InfoCon / buch / infocon

diff --git a/src/InfoCon/buch/infocon b/src/InfoCon/buch/infocon
index 81743d0..341489c 100755 (executable)
--- a/src/InfoCon/buch/infocon
+++ b/src/InfoCon/buch/infocon
@@ -92,11 +92,14 @@ sub pay_invoice
 {
     my $nr = shift;
     my $pay = shift;
-    my $value = $pay==1?1:0;
     my $query;
     my $sth;
 
-    $query  = "UPDATE sales SET paid=$value WHERE nr = $nr";
+    if ($pay) {
+       $query  = "UPDATE sales SET paid=1,billing_date=now() WHERE nr = $nr";
+    } else {
+       $query  = "UPDATE sales SET paid=0,billing_date=NULL WHERE nr = $nr";
+    }
     $sth = $dbh->do($query);
 }