Initial Stripe payment rejection support * Store rejected transactions * Command...

[hcoop/portal.git] / money.sml

diff --git a/money.sml b/money.sml
index 5697f3b..55330c2 100644 (file)
--- a/money.sml
+++ b/money.sml
@@ -371,12 +371,12 @@ fun mkStripeRow [charge_id, webuser_id, name, paid_on, gross, fee] =
 fun listUserPendingStripePayments uid =
     C.map (getDb ()) mkStripeRow ($`SELECT charge_id, webuser_id, card_name, paid_on, gross, fee FROM stripe_payment
                                     WHERE webuser_id = ^(C.intToSql uid)
-                                    AND charge_id NOT IN (SELECT stripe_charge_id FROM stripe_processed)
+                                    AND charge_id NOT IN (SELECT stripe_charge_id FROM stripe_handled)
                                     ORDER BY paid_on DESC`)
 
 fun listAllPendingStripePayments _ =
     C.map (getDb ()) mkStripeRow ($`SELECT charge_id, webuser_id, card_name, paid_on, gross, fee FROM stripe_payment
-                                    WHERE charge_id NOT IN (SELECT stripe_charge_id FROM stripe_processed)
+                                    WHERE charge_id NOT IN (SELECT stripe_charge_id FROM stripe_handled)
                                     ORDER BY paid_on DESC`)
 
 fun lookupStripePayment id =