'Return to main page' link in header

[hcoop/zz_old/portal.git] / money.sml

diff --git a/money.sml b/money.sml
index 4ff587a..ea9255a 100644 (file)
--- a/money.sml
+++ b/money.sml
@@ -112,7 +112,7 @@ val mkChargeRow' =
      | row => Init.rowError ("name+charge", row)
 
 fun listChargesWithNames trn =
-    C.map (getDb ()) mkChargeRow' ($`SELECT name, trn, usr, amount, app FROM Charge, WebUser
+    C.map (getDb ()) mkChargeRow' ($`SELECT name, trn, usr, amount FROM Charge, WebUser
                                     WHERE trn = ^(C.intToSql trn)
                                        AND usr = id
                                     ORDER BY name`)