%perl>
$m->comp('/widgets/wrappers/sharky/table_top.mc',
'caption' => 'Properties',
'number' => 1);
$m->out($ieSpacer);
if ($param->{tplate_type}) {
# Output a hidden field for the template type.
$m->comp('/widgets/profile/hidden.mc',
name => 'tplate_type',
value => $param->{tplate_type});
if ($param->{tplate_type} ==
Bric::Biz::Asset::Formatting::ELEMENT_TEMPLATE) {
# It's an element template. Offer them a list of elements to
# choose from.
$m->comp('/widgets/select_object/select_object.mc',
object => 'element',
name => $widget.'|at_id',
field => 'name',
reset_key => $rk,
exclude => $excl_media_sub,
disp => 'Element');
} elsif ($param->{tplate_type} ==
Bric::Biz::Asset::Formatting::UTILITY_TEMPLATE) {
# It's a utiltiy template. Offer a name field.
$m->comp('/widgets/profile/text.mc',
disp => 'Name',
req => 1,
name => "$widget|name");
} else {
# Do nothing for a category template. This should never happen.
}
} else {
# Let them decide what type of template they want.
$m->comp('/widgets/profile/displayFormElement.mc',
vals => Bric::Biz::Asset::Formatting->my_meths->{tplate_type},
key => 'tplate_type'
);
}
$m->out($ieSpacer);
$m->comp('/widgets/profile/displayFormElement.mc',
key => "file_type",
vals => {
disp => "File Type",
value => 'mc',
props => {
type => 'select',
vals => {
'mc' => 'Mason Component (.mc)',
'pl' => 'HTML::Template Script (.pl)',
'tmpl' => 'HTML::Template Template (.tmpl)'
}
}
});
$m->out($ieSpacer);
$m->comp('/widgets/select_object/select_object.mc',
'object' => 'output_channel',
'name' => $widget.'|oc_id',
'field' => 'name',
'reset_key' => $rk,
selected => $param->{"$widget|oc_id"},
constrain => { active => 1 },
req => 1,
'disp' => 'Output Channel');
$m->out($ieSpacer);
$m->comp('/widgets/select_object/select_object.mc',
'object' => 'category',
'name' => $widget.'|cat_id',
selected => $param->{"$widget|cat_id"},
'reset_key' => $rk,
'field' => 'uri',
sort_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
$param
%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;
my ($button, $cb);
($button, $cb, $pmeth->{value}) = $param->{tplate_type} ?
('create_red', 'create_cb', $param->{priority}) :
('next_dkgreen', 'create_next_cb', 3);
%init>
<%once>;
my $pmeth = { %{ Bric::Biz::Asset::Formatting->my_meths->{priority} } };
$pmeth->{value} = 3;
my $excl_sub = sub { ! chk_authz($_[0], READ, 1) };
my $excl_media_sub = sub { $_[0]->is_media || ! chk_authz($_[0], READ, 1) };
%once>