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