Default value selector for payment type

diff --git a/money.mlt b/money.mlt
index 230eca5..08aaa4b 100644 (file)
--- a/money.mlt
+++ b/money.mlt
@@ -140,7 +140,13 @@ end %></textarea></td> </tr>
 <form action="money" method="post">
 <input type="hidden" name="cmd" value="pay2">
 <table class="blanks">
-<tr> <td>Description:</td> <td><input name="descr"></td> </tr>
+<tr> <td>Description:</td> <td><select name="descr">
+       <option selected>PayPal</option>
+       <option>Google Checkout</option>
+       <option>Check</option>
+       <option>Direct transfer</option>
+       <option value="">Other:</option>
+</select> <input name="descr2"></td> </tr>
 <tr> <td>Date:</td> <td><input name="d"></td> </tr>
 <tr> <td>Amount:</td> <td><input name="amount"></td> </tr>
 <tr> <td>Member:</td> <td><select name="usr">
@@ -155,6 +161,8 @@ end %></textarea></td> </tr>
 <% elseif $"cmd" = "pay2" then
        Group.requireGroupName "money";
        val amount = Web.stor ($"amount");
+       val descr = $"descr";
+       val descr = iff descr = "" then $"descr2" else descr;
        val id = Money.addTransaction ($"descr", amount, $"d");
        Money.addCharge {trn = id, usr = Web.stoi ($"usr"), amount = amount};
        Money.applyCharges id;