<%perl>; $m->comp('/widgets/wrappers/sharky/table_top.mc', caption => "Select a Role"); $m->comp('/widgets/profile/select.mc', disp => "Role", name => "$widget|role", value => $story->get_contributor_role($contrib) || 'DEFAULT', options => $opt); $m->comp('/widgets/wrappers/sharky/table_bottom.mc'); $m->comp('/widgets/profile/formButtons.mc', cb => 'assoc_contrib_role_cb', widget => $widget, no_ret => 1, no_del => 1, type => 'story', section => 'workflow', val => 'next_dkgreen'); <%args> $widget <%init> my $contrib = get_state_data($widget, 'contrib'); my $story = get_state_data($widget, 'story'); my $opt = []; foreach my $r ($contrib->get_roles) { $r eq '_MEMBER_SUBSYS' ? unshift @$opt, ['DEFAULT', 'Default'] : push @$opt, [$r, $r]; }