package HTML::Mason::Commands; use strict; use vars qw($m $r); my $_escape = \&HTML::Mason::Parser::_escape_perl_expression; 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 $widget = (!exists $ARGS{'widget'} ? die "no value sent for required parameter 'widget'" : $ARGS{'widget'}); my $header = (!exists $ARGS{'header'} ? undef : $ARGS{'header'}); my $number = (!exists $ARGS{'number'} ? undef : $ARGS{'number'}); my $frame = (!exists $ARGS{'frame'} ? undef : $ARGS{'frame'}); my $button = (!exists $ARGS{'button'} ? " " : $ARGS{'button'}); my $_out = $m->current_sink; $m->debug_hook($m->current_comp->path) if (%DB::); ; my $story = get_state_data($widget, 'asset'); my $cat = $story->get_primary_category; my $cat_name = $cat ? $cat->get_name : ''; $header ||= 'Story Information'; if ($frame) { $m->comp('/widgets/wrappers/sharky/table_top.mc', caption => $header, number => $number); $_out->(' '); } $_out->('
![]() |
ID: | '); $_out->( $story->get_id ); $_out->(' | '); $_out->( $button ); $_out->(' |
![]() |
|||
![]() |
Title: | '); $_out->( $story->get_title ); $_out->(' | |
![]() |
|||
![]() |
Story Type: | '); $_out->( $story->get_element_name ); $_out->(' | |
![]() |
|||
![]() |
URI: | '); $_out->( $story->get_primary_uri ); $_out->(' |