Fix shares error in locations

diff --git a/location.sml b/location.sml
index ca66ee2..5dbf7a6 100644 (file)
--- a/location.sml
+++ b/location.sml
@@ -135,7 +135,7 @@ fun recordResidents () =
                addToParents (loc, count)
            end
     in
-       C.fold db folder NM.empty ($`SELECT loc, id, name, rname, bal, joined, app
+       C.fold db folder NM.empty ($`SELECT loc, id, name, rname, bal, joined, app, shares
                                     FROM Lives JOIN WebUser ON usr = id`)
     end
 
@@ -293,7 +293,7 @@ fun removeFromLocation (lives : lives) =
     end
 
 fun residentsOneLevel loc =
-    C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app FROM Lives, WebUser
+    C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app, shares FROM Lives, WebUser
                                        WHERE loc = ^(C.intToSql loc)
                                           AND usr = id
                                        ORDER BY name`)
@@ -315,4 +315,4 @@ fun subLocations par =
                                      WHERE parent ^(intOptToSqlCompare par)
                                      ORDER BY name`)
 
-end
\ No newline at end of file
+end