<%perl>; $m->comp("/widgets/wrappers/sharky/table_top.mc", caption => "Category Keywords"); $m->out(""); foreach my $cat ($story->get_categories) { $m->out(qq{\n"); my $flag = 'Keywords'; foreach my $kw ($cat->keywords) { $m->out(qq{\n"); $flag = ' '; } } $m->out("
Category} . qq{} . $cat->get_name . "
$flag} . $kw->get_name . "
"); $m->comp("/widgets/wrappers/sharky/table_bottom.mc"); # Output the keywords. $m->comp("/widgets/wrappers/sharky/table_top.mc", caption => "Story Keywords"); $m->out(""); foreach my $kw (@$keywords) { $m->out(qq{\n"); } $m->out("
 } . $kw->get_name . "
"); $m->comp("/widgets/wrappers/sharky/table_bottom.mc"); # Output the save buttons. $m->comp('/widgets/profile/formButtons.mc', type => 'story', section => 'workflow', no_del => 1, widget => $widget, cb => 'add_kw_cb', no_save => 1); <%args> $widget $param => undef <%init>; my $story = get_state_data($widget, 'story'); my $keywords = $story->get_keywords || [];