Store date when paying an item
authorJoey Schulze <joey@infodrom.org>
Mon, 25 Apr 2016 08:58:41 +0000 (10:58 +0200)
committerJoey Schulze <joey@infodrom.org>
Mon, 25 Apr 2016 08:58:41 +0000 (10:58 +0200)
src/InfoCon/buch/infocon

index 81743d0..341489c 100755 (executable)
@@ -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);
 }