Fixed an HTML error

[bpt/portal.git] / money.sml

diff --git a/money.sml b/money.sml
index be65cb0..d9e14d9 100644 (file)
--- a/money.sml
+++ b/money.sml
@@ -254,4 +254,9 @@ fun lookupHostingUsage trn =
        before TextIO.closeIn usageFile
     end handle _ => NONE
 
+fun costBase amt =
+    case C.oneRow (getDb ()) ($`SELECT ^(C.realToSql amt) / SUM(shares) FROM WebUserPaying`) of
+       [share] => C.realFromSql share
+      | row => Init.rowError ("Bad costBase result", row)
+
 end