Proper permissions for actions.

This commit is contained in:
Fang 2017-12-04 22:47:41 +01:00
parent 764b3ec328
commit fb5594001d

View File

@ -85,7 +85,17 @@
++ poke-collections-action
|= act/action
^- (quip move _+>)
?. (team:title our.bol src.bol) [~ +>]
?. ?- -.act
?($create $delete)
(team:title src.bol our.bol)
::
?($submit $comment)
=+ col=(~(get by cols) nom.act)
?~ col |
?! .= publ.conf.u.col
(~(has in mems.conf.u.col) src.bol)
==
[~ +>]
=< ta-done
?- -.act
$create (ta-create:ta +.act)