fin

-module(bpe_pass).
-copyright('Maxim Sokhatsky').
-include_lib("form/include/meta.hrl").
-compile(export_all).
-record(phone, {code="+380490000000",number=[]}).

doc() -> "One-time password PIN control used in banks,".
id() -> #phone{}.
new(Name,_Phone) ->
    #document { name = form:atom([otp,Name]),
    sections = [ #sec { name=[<<"Input the credentials: "/utf8>> ] } ],
    buttons  = [ #but { id=decline,
                        name=decline,
                        title= <<"Cancel"/utf8>>,
                        class=cancel,
                        postback={'Close',[]} },
                 #but { id=proceed,
                        name=proceed,
                        title = <<"Proceed"/utf8>>,
                        class = [button,sgreen],
                        sources = [user,otp],
                        postback = {'Next',form:atom([otp,otp,Name])}}],
    fields = [ #field { id=user,
                        name=user,
                        type=string,
                        title= <<"Login:"/utf8>>,
                        labelClass=label,
                        pos=2,
                        fieldClass=column3},
               #field { id=otp,
                        name=otp,
                        type=otp,
                        title= <<"Pass:"/utf8>>,
                        labelClass=label,
                        pos=3,
                        fieldClass=column3}]}.