Add access levels (#19)

- Remove authorization level

src/MyWebLog.Data/SQLite/Helpers.fs

@@ -291,16 +291,16 @@ module Map =
     
     /// Create a web log user from the current row in the given data reader
     let toWebLogUser (rdr : SqliteDataReader) : WebLogUser =
-        { id                 = WebLogUserId (getString "id" rdr)
-          webLogId           = WebLogId (getString "web_log_id" rdr)
-          userName           = getString "user_name" rdr
-          firstName          = getString "first_name" rdr
-          lastName           = getString "last_name" rdr
-          preferredName      = getString "preferred_name" rdr
-          passwordHash       = getString "password_hash" rdr
-          salt               = getGuid "salt" rdr
-          url                = tryString "url" rdr
-          authorizationLevel = AuthorizationLevel.parse (getString "authorization_level" rdr)
+        { id            = WebLogUserId (getString "id" rdr)
+          webLogId      = WebLogId (getString "web_log_id" rdr)
+          userName      = getString "user_name" rdr
+          firstName     = getString "first_name" rdr
+          lastName      = getString "last_name" rdr
+          preferredName = getString "preferred_name" rdr
+          passwordHash  = getString "password_hash" rdr
+          salt          = getGuid "salt" rdr
+          url           = tryString "url" rdr
+          accessLevel   = AccessLevel.parse (getString "access_level" rdr)
         }
 
 /// Add a possibly-missing parameter, substituting null for None

src/MyWebLog.Data/SQLite/SQLiteWebLogUserData.fs

@@ -20,7 +20,7 @@ type SQLiteWebLogUserData (conn : SqliteConnection) =
           cmd.Parameters.AddWithValue ("@passwordHash", user.passwordHash)
           cmd.Parameters.AddWithValue ("@salt", user.salt)
           cmd.Parameters.AddWithValue ("@url", maybe user.url)
-          cmd.Parameters.AddWithValue ("@authorizationLevel", AuthorizationLevel.toString user.authorizationLevel)
+          cmd.Parameters.AddWithValue ("@accessLevel", AccessLevel.toString user.accessLevel)
         ] |> ignore
     
     // IMPLEMENTATION FUNCTIONS
@@ -31,10 +31,10 @@ type SQLiteWebLogUserData (conn : SqliteConnection) =
         cmd.CommandText <- """
             INSERT INTO web_log_user (
                 id, web_log_id, user_name, first_name, last_name, preferred_name, password_hash, salt, url,
-                authorization_level
+                access_level
             ) VALUES (
                 @id, @webLogId, @userName, @firstName, @lastName, @preferredName, @passwordHash, @salt, @url,
-                @authorizationLevel
+                @accessLevel
             )"""
         addWebLogUserParameters cmd user
         do! write cmd
@@ -96,14 +96,14 @@ type SQLiteWebLogUserData (conn : SqliteConnection) =
         use cmd = conn.CreateCommand ()
         cmd.CommandText <- """
             UPDATE web_log_user
-               SET user_name           = @userName,
-                   first_name          = @firstName,
-                   last_name           = @lastName,
-                   preferred_name      = @preferredName,
-                   password_hash       = @passwordHash,
-                   salt                = @salt,
-                   url                 = @url,
-                   authorization_level = @authorizationLevel
+               SET user_name      = @userName,
+                   first_name     = @firstName,
+                   last_name      = @lastName,
+                   preferred_name = @preferredName,
+                   password_hash  = @passwordHash,
+                   salt           = @salt,
+                   url            = @url,
+                   access_level   = @accessLevel
              WHERE id         = @id
                AND web_log_id = @webLogId"""
         addWebLogUserParameters cmd user