package HTML::Mason::Commands; use strict; use vars qw($m $r); my $_escape = \&HTML::Mason::Parser::_escape_perl_expression; ; my $pmeth = { %{ Bric::Biz::Asset::Business::Media->my_meths->{priority} } }; $pmeth->{value} = 3; my $cdate = { %{ Bric::Biz::Asset::Business::Media->my_meths->{cover_date} } }; my $nmeth = Bric::Biz::Asset::Business::Media->my_meths->{title}; 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 $_out = $m->current_sink; $m->debug_hook($m->current_comp->path) if (%DB::); ; $cdate->{value} = strfdate(); # browser spacing stuff my $agent = $m->comp("/widgets/util/detectAgent.mc"); my $ieSpacer = ($agent->{browser} eq "Internet Explorer") ? qq{
} : ''; $m->comp("/widgets/wrappers/sharky/table_top.mc", caption => "Properties", number => 1); $m->comp('/widgets/profile/displayFormElement.mc', key => 'title', vals => $nmeth ); $_out->(' '); $_out->( $ieSpacer ); $_out->(' '); $m->comp('/widgets/select_object/select_object.mc', disp => 'Media Type', name => "$widget|at_id", object => 'element', field => 'name', constrain => { top_level => 1, media => 1 }, useTable => 1); $_out->(' '); $_out->( $ieSpacer ); $_out->(' '); $m->comp('/widgets/select_object/select_object.mc', disp => 'Source', object => 'source', name => "$widget|source__id", field => 'source_name', useTable => 1); $_out->(' '); $_out->( $ieSpacer ); $_out->(' '); $m->comp('/widgets/select_object/select_object.mc', object => 'category', disp => 'Category', name => "$widget|category__id", field => 'uri', useTable => 1); $_out->(' '); $_out->( $ieSpacer ); $_out->(' '); $m->comp('/widgets/profile/displayFormElement.mc', key => "priority", vals => $pmeth,); $_out->(' '); $_out->( $ieSpacer ); $_out->(' '); $m->comp('/widgets/profile/displayFormElement.mc', key => "cover_date", vals => $cdate,); $_out->(' '); $_out->( $ieSpacer ); $_out->(' '); $m->comp("/widgets/wrappers/sharky/table_bottom.mc"); $m->comp("/widgets/wrappers/sharky/table_top.mc", caption => "Submit", number => 2, ghostly => 1 ); $_out->('
'); #-- Once --# $_out->(' '); #-- Args --# $_out->(' '); #-- Init --#%#-- Begin HTML --# return undef; }, 'create_time'=>1001684341, 'declared_args'=> { '$widget' => { 'default' => undef } }, 'object_size'=>3017, 'parser_version'=>0.8 ) ;