package HTML::Mason::Commands; use strict; use vars qw($m $r); my $_escape = \&HTML::Mason::Parser::_escape_perl_expression; ; my $type = 'element'; # Hack! my $disp = get_disp_name('story'); my $context = "Workflow | Profile | $disp | "; HTML::Mason::Component::FileBased->new ( 'code'=>sub { my %ARGS; if (@_ % 2 == 0) { %ARGS = @_ } else { die "Odd number of parameters passed to component expecting name/value pairs" } my $id = (!exists $ARGS{'id'} ? undef : $ARGS{'id'}); my $_out = $m->current_sink; $m->debug_hook($m->current_comp->path) if (%DB::); # Do any redirects first. do_queued_redirect(); my $content = $m->scomp('/widgets/story_prof/story_prof.mc', id => $id, section => 'keyword', param => \%ARGS); $_out->(' '); #-- Once Section --# $_out->(' '); #-- Args Section --# $_out->(' '); #-- Init Section --# $_out->(' '); #-- Begin HTML --# $_out->(' '); $m->comp('/widgets/wrappers/sharky/header.mc', title => 'Edit Keywords', context => $context . $rc->get('story_prof|title') . ' | Keywords'); $_out->('
'); $m->comp('/widgets/wrappers/sharky/footer.mc'); $_out->(' '); #-- End HTML --# $_out->(' '); return undef; }, 'create_time'=>1001680234, 'declared_args'=> { '$id' => { 'default' => ' undef' } }, 'object_size'=>1342, 'parser_version'=>0.8 ) ;