<%doc> ############################################################################### =head1 NAME categories.html -- associates a category to a story asset =head1 VERSION $LastChangedRevision$ =head1 DATE $LastChangedDate: 2004-05-24 18:17:44 -0700 (Mon, 24 May 2004) $ =head1 DESCRIPTION Top-level component to associate a category to a story asset. (I think this, keywords.html, and contributors.html should be factored out into an association.html component.) =cut %#-- Once Section --# <%once>; my $type = 'element'; # Hack! my $disp = get_disp_name('story'); my $context = "Workflow | Profile | $disp | "; %#-- Args Section --# <%args> $id => undef %#-- Init Section --# <%init> # Do any redirects first. do_queued_redirect(); my $content = $m->scomp('/widgets/story_prof/story_prof.mc', id => $id, section => 'categories', param => \%ARGS); %#-- Begin HTML --# <& /widgets/wrappers/sharky/header.mc, title => 'Edit Categories', context => $context . $r->pnotes('story_prof|title') . ' | Categories' &>
<% $content %>
<& /widgets/wrappers/sharky/footer.mc &> %#-- End HTML --#