1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

type Contact =
    {
        Id: int
        TypeContact: int
        Number: string
    }

type Contacts =
    {
        Contacts: List<Contact>
    }

module ContactsPagelets =

    [<JavaScript>]
    let ContactsFormlet (contacts : Contacts) =
        let principalF : Formlet<Contact> =
            let TypeContactF =
                Select 0 [("Phone", 0); ("Email", 1)]
                |> Enhance.WithTextLabel "Type"
            let NumberF =
                Input ""
                |> Enhance.WithTextLabel "Number"
            Formlet.Yield (fun typeId number->
                {Id = 0 ; TypeContact = int typeId; Number = number})
            <*> TypeContactF
            <*> NumberF
        let itemsF =
            principalF
            |> Enhance.Many 
            |> Formlet.InitWith contacts.Contacts
            |> Enhance.WithLegend "Contacts"
            |> Enhance.WithErrorSummary "Errors"
        Formlet.Yield (fun items ->
                {
                    Contacts = items
                }
            )
        <*> itemsF
        |> Enhance.WithSubmitButton
        |> Enhance.WithFormContainer

type ContactControl() =
    inherit Web.Control()

    [<DefaultValue>]
    val mutable Contacts : Contacts

    [<JavaScript>]
    override this.Body = upcast (ContactsPagelets.ContactsFormlet this.Contacts)