Initial version.

Features:

- Upload PDF files let them analyze

- Manage meta data and items

- See processing in webapp

modules/webapp/src/main/elm/Page/NewInvite/Update.elm

@@ -0,0 +1,27 @@
+module Page.NewInvite.Update exposing (update)
+
+import Api
+import Data.Flags exposing (Flags)
+import Page.NewInvite.Data exposing (..)
+import Api.Model.GenInvite exposing (GenInvite)
+import Api.Model.InviteResult
+import Util.Http
+
+update: Flags -> Msg -> Model -> (Model, Cmd Msg)
+update flags msg model =
+    case msg of
+        SetPassword str ->
+            ({model|password = str}, Cmd.none)
+
+        Reset ->
+            (emptyModel, Cmd.none)
+
+        GenerateInvite ->
+            (model, Api.newInvite flags (GenInvite model.password) InviteResp)
+
+        InviteResp (Ok res) ->
+            if res.success then ({model | result = (Success res)}, Cmd.none)
+            else ({model | result = (Failed res.message)}, Cmd.none)
+
+        InviteResp (Err err) ->
+            ({model|result = Failed (Util.Http.errorToString err)}, Cmd.none)