%doc> ############################################################################### =head1 NAME category.html -- associates a category to a media 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 media asset. (I think this, keywords.html, and contributors.html should be factored out into an association.html component.) =cut %doc> %#-- Once Section --# <%once>; my $type = 'element'; # Hack! my $disp = get_disp_name('media'); my $context = "Workflow | Profile | $disp | "; %once> %#-- Args Section --# <%args> $id => undef %args> %#-- Init Section --# <%init> # Do any redirects first. do_queued_redirect(); my $content = $m->scomp('/widgets/media_prof/media_prof.mc', id => $id, section => 'category', param => \%ARGS); %init> %#-- Begin HTML --# <& /widgets/wrappers/sharky/header.mc, title => 'Edit Category', context => $context . $r->pnotes('media_prof|title') . ' | Category' &>
<& /widgets/wrappers/sharky/footer.mc &> %#-- End HTML --#