X-Git-Url: http://git.hcoop.net/hcoop/portal.git/blobdiff_plain/f8b39e09ad3ca69efbb791352f72d8aa98c4cd34..47ea7c948ab73a626681f1f75f42a67921c0ca9f:/money.sml diff --git a/money.sml b/money.sml index 5697f3b..55330c2 100644 --- 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 =