added transaction id to %womb-invite

This commit is contained in:
Anton Dyudin 2016-05-06 15:11:58 -07:00
parent 3d38f08964
commit 12dbb4bc15
2 changed files with 5 additions and 5 deletions

View File

@ -11,5 +11,5 @@
{{who/@t $~} ref/(unit (each ship mail:womb)) sta/@}
==
:- %womb-invite
^- {reference invite}:womb
[ref [who 10 sta "You have been invited to Urbit" "This is an invite of 10 planets"]]
^- {cord reference invite}:womb
[(scot %uw eny) ref [who 10 sta "You have been invited to Urbit" "This is an invite of 10 planets"]]

View File

@ -139,7 +139,7 @@
{$release gal/@ud sta/@ud}
{$claim aut/passcode her/@p}
{$recycle who/mail him/knot tik/knot}
{$invite ref/reference inv/invite}
{$invite tid/cord ref/reference inv/invite}
{$reinvite aut/passcode inv/invite}
==
--
@ -610,7 +610,7 @@
==
::
++ poke-invite :: create invitation
|= {ref/reference inv/invite}
|= {tid/cord ref/reference inv/invite}
=< abet
=. log-transaction (log-transaction %invite +<)
=. hotel
@ -619,7 +619,7 @@
%+ ~(put by hotel) u.ref
=+ cli=(fall (~(get by hotel) u.ref) *client)
cli(sta +(sta.cli))
(invite-from ~ inv)
(invite-from(eny (shax tid)) ~ inv)
::
++ invite-from :: traced invitation
|= {hiz/(list mail) inv/invite} ^+ +>