Make clear difference between minimum balance and minimum payment

diff --git a/remind/remind.sml b/remind/remind.sml
index 19aadfa..cbfad89 100644 (file)
--- a/remind/remind.sml
+++ b/remind/remind.sml
@@ -34,6 +34,8 @@ fun main _ =
                    let
                        val m = Mail.mopen ()
                        fun write msg = Mail.mwrite (m, msg)
+
+                       val minBal = 900.0 * real shares / real totalShares * 2.0
                    in
                        if amount < 0.0 then
                            write "Subject: Your NEGATIVE HCoop balance\n"
@@ -64,21 +66,19 @@ fun main _ =
                        write (Int.toString members);
                        write "\nTotal pledge amount: ";
                        write (Int.toString shares);
-                       write "\nRequested minimum: US$";
-                       write (printReal (900.0 * real shares / real totalShares * 2.0));
+                       write "\nRequested minimum balance: US$";
+                       write (printReal minBal);
+                       write "\nPayment to get there: US$";
+                       write (printReal (minBal - amount));
 
                        write "\n\nYour minimum was calculated by dividing our total monthly expenses ($900) by the\n";
                        write "sum of all members' pledge amounts, multiplying by your pledge amount, and then\n";
                        write "multiplying by 2.  That is, the amount covers your share of two months' expenses.\n\n";
 
                        write "To make a payment, visit:\n";
-                       write "     https://members2.hcoop.net/\n";
+                       write "     https://members.hcoop.net/\n";
                        write "and use the PayPal or Google Checkout link.\n";
 
-                       write "\nIf you don't know how to get a username and password for members2.hcoop.net, visit:\n";
-                       write "     http://wiki.hcoop.net/MemberManual/MigrationGuide\n";
-                       write "for a reminder.  (\"Step 1\" is all you need to read.)\n";
-
                        write "\nIf for whatever reason you don't plan to pay the amount suggested in this e-mail,\n";
                        write "_please_ don't stay silent.  Reply to this message explaining your circumstances.\n";
                        write "We are doing limited-time monetary grants on request, due to the extra costs\n";