%perl>
$m->comp('/widgets/wrappers/sharky/table_top.mc',
'caption' => 'Properties',
'number' => 1);
$m->out($ieSpacer);
$m->comp('/widgets/select_object/select_object.mc',
'object' => 'element',
'name' => $widget.'|at_id',
'field' => 'name',
'reset_key' => $rk,
req => 1,
exclude => $excl_sub,
disp => 'Element');
$m->out($ieSpacer);
%perl>
Generic: |
<& '/widgets/profile/checkbox.mc', name => $widget.'|no_at', value => 1 &>
(not associated with any of the above elements)
|
<%perl>
$m->out($ieSpacer);
$m->comp('/widgets/select_object/select_object.mc',
'object' => 'output_channel',
'name' => $widget.'|oc_id',
'field' => 'name',
'reset_key' => $rk,
req => 1,
'disp' => 'Output Channel');
$m->out($ieSpacer);
$m->comp('/widgets/select_object/select_object.mc',
'object' => 'category',
'name' => $widget.'|cat_id',
'reset_key' => $rk,
'field' => 'uri',
exclude => $excl_sub,
req => 1,
'disp' => 'Category');
$m->out($ieSpacer);
$m->comp('/widgets/profile/displayFormElement.mc',
key => "priority",
vals => $pmeth);
$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>
<%init>;
my $rk = get_state_data($widget, 'reset_key');
# browser spacing stuff
my $agent = $m->comp("/widgets/util/detectAgent.mc");
my $ieSpacer = ($agent->{os} ne "SomeNix") ? qq{} : '';
my $infoIndent = ($agent->{browser} eq "Netscape") ? FIELD_INDENT - 7 : FIELD_INDENT;
%init>
<%once>;
my $pmeth = { %{ Bric::Biz::Asset::Formatting->my_meths->{priority} } };
$pmeth->{value} = 3;
my $excl_sub = sub { ! chk_authz($_[0], READ, 1) };
%once>