%perl>
$m->comp("/widgets/wrappers/sharky/table_top.mc",
caption => "Properties",
number => 1);
$m->out($ieSpacer);
$m->comp('/widgets/profile/displayFormElement.mc',
key => "title",
vals => $tmeth
);
$m->out($ieSpacer);
$m->comp('/widgets/profile/displayFormElement.mc',
key => "slug",
vals => $smeth
);
$m->out($ieSpacer);
$m->comp( '/widgets/select_object/select_object.mc',
disp => 'Story Type',
object => 'element',
name => 'story_prof|at_id',
req => 1,
field => 'name',
constrain => { top_level => 1,
media => 0 },
useTable => 1,
exclude => $excl_sub,
);
$m->out($ieSpacer);
$m->comp( '/widgets/select_object/select_object.mc',
disp => 'Source',
object => 'source',
name => "$widget|source__id",
field => 'source_name',
useTable => 1,
);
$m->out($ieSpacer);
$m->comp( '/widgets/select_object/select_object.mc',
object => 'category',
disp => 'Primary Category',
name => "$widget|new_category_id",
exclude => $excl_sub,
req => 1,
field => 'uri',
sort_field => 'uri',
useTable => 1
);
$m->out($ieSpacer);
$m->comp('/widgets/profile/displayFormElement.mc',
key => "priority",
vals => $pmeth,
);
$m->out($ieSpacer);
$m->comp('/widgets/profile/displayFormElement.mc',
key => "cover_date",
vals => $cdate,
);
$m->out($ieSpacer);
$m->comp("/widgets/wrappers/sharky/table_bottom.mc");
$m->comp("/widgets/wrappers/sharky/table_top.mc",
caption => "Submit",
number => 2,
ghostly => 1
);
%perl>
<%args>
$widget
%args>
<%once>;
my $pmeth = { %{ Bric::Biz::Asset::Business::Story->my_meths->{priority} } };
$pmeth->{value} = 3;
my $cdate = { %{ Bric::Biz::Asset::Business::Story->my_meths->{cover_date} } };
my ($tmeth, $smeth) =
@{ Bric::Biz::Asset::Business::Story->my_meths }{qw(title slug)};
my $excl_sub = sub { ! chk_authz($_[0], READ, 1) };
%once>
<%init>;
$cdate->{value} = strfdate();
my $agent = $m->comp("/widgets/util/detectAgent.mc");
my $ieSpacer = ($agent->{browser} eq "Internet Explorer") ? qq{} : '';
%init>