%perl>
my $wf = Bric::Biz::Workflow->lookup
({ id => get_state_data($widget, 'work_id')});
my $site_id = $wf->get_site_id;
$m->comp("/widgets/wrappers/sharky/table_top.mc",
caption => "Properties",
id => 'storyinfo',
number => 1);
$m->out($ieSpacer);
$m->comp('/widgets/profile/displayFormElement.mc',
key => 'site',
readOnly => 1,
objref => $wf
);
$m->out($ieSpacer);
$m->comp('/widgets/profile/displayFormElement.mc',
key => "title",
vals => $tmeth
);
$m->out($ieSpacer);
$m->comp('/widgets/profile/displayFormElement.mc',
key => "slug",
id => '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',
default => ['' , ''],
constrain => { top_level => 1,
media => 0,
site_id => $site_id,
},
useTable => 1,
localize => 0,
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',
localize => 0,
useTable => 1,
);
$m->out($ieSpacer);
$m->comp( '/widgets/select_object/select_object.mc',
object => 'category',
disp => 'Primary Category',
name => "$widget|new_category_id",
constrain => { site_id => $site_id },
exclude => $excl_sub,
req => 1,
field => 'uri',
sort_field => 'uri',
localize => 0,
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
);
$m->comp('/widgets/profile/create_button.html',
widget => $widget);
%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 = detect_agent();
my $ieSpacer = $agent->ie ? qq{
![]() |