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($type); my $sdisp = get_disp_name('story'); my $context = "Workflow | Profile | $sdisp | $disp |"; HTML::Mason::Component::FileBased->new ( 'code'=>sub { my %ARGS; { local $^W; %ARGS = @_ unless (@_ % 2); } my $_out = $m->current_sink; $m->debug_hook($m->current_comp->path) if (%DB::); $_out->(' '); #-- Args Section --# $_out->(' '); #-- Args Section --# $_out->(' '); #-- Init Section --# $_out->(' '); #-- Begin HTML --# $m->comp('/widgets/wrappers/sharky/header.mc', title => "$disp Profile", context => $context . get_state_data('container_prof', 'crumb')); $_out->(' '); $m->comp('/javascripts/profile/formValidator.js'); $_out->('
'); $m->comp('/widgets/container_prof/container_prof.mc', tile_type => 'story', num => 2, action => 'edit', show_summary => 1,); $_out->('
'); $m->comp('/widgets/wrappers/sharky/footer.mc'); $_out->(' '); #-- End HTML --# $_out->(' '); return undef; }, 'create_time'=>1001676525, 'object_size'=>1204, 'parser_version'=>0.8 ) ;