Track order insert date

[app-web-oof.git] / lib / App / Web / Oof.pm

diff --git a/lib/App/Web/Oof.pm b/lib/App/Web/Oof.pm
index c3aeeb1883c5b07012a273a876da0a926bead690..69fcac39eba64accbb7c87408512f258377df7a3 100644 (file)
--- a/lib/App/Web/Oof.pm
+++ b/lib/App/Web/Oof.pm
@@ -213,7 +213,7 @@ sub order_app {
                                die "Not enough of " .$prod->{title}."\n" if $prod->{quantity} > $stock;
                                $db{$$}->update(products => {stock => $stock - $prod->{quantity}}, {product => $prod->{product}});
                        }
-                       $db{$$}->insert(orders => {id => $id, %parms});
+                       $db{$$}->insert(orders => {id => $id, date => time, %parms});
                        $db{$$}->commit;
                        sendmail (Email::Simple->create(
                                header => [