Track order insert date

diff --git a/db.sql b/db.sql
index eaff6f267247e5ce77fdfbca403424ce3c0e5cf0..b75393541c351806d651a4e6237061881a6b89a1 100644 (file)
--- a/db.sql
+++ b/db.sql
@@ -18,6 +18,7 @@ CREATE TABLE IF NOT EXISTS discounts (
 
 CREATE TABLE IF NOT EXISTS orders (
        id       TEXT PRIMARY KEY,
 
 CREATE TABLE IF NOT EXISTS orders (
        id       TEXT PRIMARY KEY,

+       date     BIGINT NOT NULL,

        products JSON NOT NULL,
        total    INT NOT NULL,
        discount VARCHAR(20) REFERENCES discounts UNIQUE,
        products JSON NOT NULL,
        total    INT NOT NULL,
        discount VARCHAR(20) REFERENCES discounts UNIQUE,

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}});
                        }
                                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 => [
                        $db{$$}->commit;
                        sendmail (Email::Simple->create(
                                header => [