%perl>;
$m->comp("/widgets/wrappers/sharky/table_top.mc",
caption => "Category Keywords");
$m->out("
");
foreach my $cat ($story->get_categories) {
$m->out(qq{Category | }
. qq{} . $cat->get_name
. " |
\n");
my $flag = 'Keywords';
foreach my $kw ($cat->keywords) {
$m->out(qq{$flag | }
. $kw->get_name . " |
\n");
$flag = ' ';
}
}
$m->out("
");
$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{ | }
. $kw->get_name . " |
\n");
}
$m->out("
");
$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);
%perl>
<%args>
$widget
$param => undef
%args>
<%init>;
my $story = get_state_data($widget, 'story');
my $keywords = $story->get_keywords || [];
%init>