%perl>
$m->comp("/widgets/wrappers/sharky/table_top.mc",
caption => "Properties",
number => 1);
$m->comp('/widgets/profile/displayFormElement.mc',
key => 'title',
vals => $nmeth
);
%perl>
<% $ieSpacer %>
<& '/widgets/select_object/select_object.mc',
disp => 'Media Type',
name => "$widget|at_id",
object => 'element',
field => 'name',
req => 1,
constrain => { top_level => 1,
media => 1 },
exclude => $excl_sub,
useTable => 1
&>
<% $ieSpacer %>
<& '/widgets/select_object/select_object.mc',
disp => 'Source',
object => 'source',
name => "$widget|source__id",
field => 'source_name',
useTable => 1
&>
<% $ieSpacer %>
<& '/widgets/select_object/select_object.mc',
object => 'category',
disp => 'Category',
name => "$widget|category__id",
field => 'uri',
req => 1,
sort_field => 'uri',
exclude => $excl_sub,
useTable => 1
&>
<% $ieSpacer %>
<&'/widgets/profile/displayFormElement.mc',
key => "priority",
vals => $pmeth,
&>
<% $ieSpacer %>
<&'/widgets/profile/displayFormElement.mc',
key => "cover_date",
vals => $cdate,
&>
<% $ieSpacer %>
<%perl>
$m->comp("/widgets/wrappers/sharky/table_bottom.mc");
$m->comp("/widgets/wrappers/sharky/table_top.mc",
caption => "Submit",
number => 2,
ghostly => 1
);
%perl>
%#-- Once --#
<%once>;
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};
my $excl_sub = sub { ! chk_authz($_[0], READ, 1) };
%once>
%#-- Args --#
<%args>
$widget
%args>
%#-- Init --#%#-- Begin HTML --#
<%init>;
$cdate->{value} = strfdate();
# browser spacing stuff
my $agent = $m->comp("/widgets/util/detectAgent.mc");
my $ieSpacer = ($agent->{browser} eq "Internet Explorer") ? qq{} : '';
%init>