Fix bug in specifying custom payment descriptions
authorAdam Chlipala <adamc@hcoop.net>
Sat, 12 Apr 2008 13:21:18 +0000 (13:21 +0000)
committerAdam Chlipala <adamc@hcoop.net>
Sat, 12 Apr 2008 13:21:18 +0000 (13:21 +0000)
money.mlt

index 793e2ed..331c079 100644 (file)
--- a/money.mlt
+++ b/money.mlt
@@ -205,7 +205,7 @@ end %></textarea></td> </tr>
        val amount = Web.stor ($"amount");
        val descr = $"descr";
        val descr = iff descr = "" then $"descr2" else descr;
-       val id = Money.addTransaction ($"descr", amount, $"d");
+       val id = Money.addTransaction (descr, amount, $"d");
        Money.addCharge {trn = id, usr = Web.stoi ($"usr"), amount = amount};
        Money.applyCharges id;