examples/lm/vcard.lua
changeset 70 e43e386c8a33
parent 68 742878c74b8e
equal deleted inserted replaced
69:ab6d4ee8974c 70:e43e386c8a33
    70 end
    70 end
    71 
    71 
    72 function M.add ( form, name, fld )
    72 function M.add ( form, name, fld )
    73 	fld.var   = name
    73 	fld.var   = name
    74 	fld.index = #form.f + 1
    74 	fld.index = #form.f + 1
       
    75 	if not fld.type then
       
    76 		fld.type = 'text-single'
       
    77 	end
    75 	local obj = form_field.new ( fld )
    78 	local obj = form_field.new ( fld )
    76 	table.insert ( form.f, obj )
    79 	table.insert ( form.f, obj )
    77 	form.f[name] = obj
    80 	form.f[name] = obj
    78 	return obj
    81 	return obj
    79 end
    82 end
    90 		function ( mess )
    93 		function ( mess )
    91 			local card = mess:child ( 'vCard' )
    94 			local card = mess:child ( 'vCard' )
    92 			if card and card:attribute ( 'xmlns' ) == 'vcard-temp' then
    95 			if card and card:attribute ( 'xmlns' ) == 'vcard-temp' then
    93 				success ( F.parse ( mess:child ( 'vCard' ) ),
    96 				success ( F.parse ( mess:child ( 'vCard' ) ),
    94 					function ( form, success, fail )
    97 					function ( form, success, fail )
    95 						iq.send ( conn, from, 'set', form:format ( form, { }, 'submit' ), success, fail )
    98 						iq.send ( conn, from, 'set', form:format ( { }, 'submit' ), success, fail )
    96 					end,
    99 					end,
    97 					function ( form, success, fail )
   100 					function ( form, success, fail )
    98 						success ()
   101 						success ()
    99 					end )
   102 					end )
   100 			else
   103 			else