<%
#if ( $cgi->param('clone') && $cgi->param('clone') =~ /^(\d+)$/ ) {
# $cgi->param('clone', $1);
#} else {
# $cgi->param('clone', '');
#}
my($query) = $cgi->keywords;
my $action = '';
my $part_export = '';
if ( $cgi->param('error') ) {
$part_export = new FS::part_export ( {
map { $_, scalar($cgi->param($_)) } fields('part_export')
} );
} elsif ( $query =~ /^(\d+)$/ ) {
$part_export = qsearchs('part_export', { 'exportnum' => $1 } );
} else {
$part_export = new FS::part_export;
}
$action ||= $part_export->exportnum ? 'Edit' : 'Add';
#my $exports = FS::part_export::export_info($svcdb);
my $exports = FS::part_export::export_info();
my %layers = map { $_ => "$_ - ". $exports->{$_}{desc} } keys %$exports;
$layers{''}='';
my $widget = new HTML::Widgets::SelectLayers(
'selected_layer' => $part_export->exporttype,
'options' => \%layers,
'form_name' => 'dummy',
'form_action' => 'process/part_export.cgi',
'form_text' => [qw( exportnum machine )],
# 'form_checkbox' => [qw()],
'html_between' => "\n",
'layer_callback' => sub {
my $layer = shift;
my $html = qq!!.
ntable("#cccccc",2);
$html .= '| Description | '.
$exports->{$layer}{notes}. ' |
'
if $layer;
foreach my $option ( keys %{$exports->{$layer}{options}} ) {
my $optinfo = $exports->{$layer}{options}{$option};
die "Retreived non-ref export info option from $layer export: $optinfo"
unless ref($optinfo);
my $label = $optinfo->{label};
my $type = defined($optinfo->{type}) ? $optinfo->{type} : 'text';
my $value = $cgi->param($option)
|| ( $part_export->exportnum && $part_export->option($option) )
|| ( (exists $optinfo->{default} && !$part_export->exportnum)
? $optinfo->{default}
: ''
);
$html .= qq!| $label | !;
if ( $type eq 'select' ) {
$html .= qq!';
} elsif ( $type eq 'textarea' ) {
$html .= qq!';
} elsif ( $type eq 'text' ) {
$html .= qq!';
} elsif ( $type eq 'checkbox' ) {
$html .= qq!{$layer}{options}} ). '">';
$html .= '';
$html .= '';
$html;
},
);
%>
<%= header("$action Export", menubar(
'Main Menu' => popurl(2),
), ' onLoad="visualize()"')
%>
<% if ( $cgi->param('error') ) { %>
Error: <%= $cgi->param('error') %>
<% } %>
|