%
%
%#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;
% },
%);
%
%
<% include("/elements/header.html","$action Export", menubar(
'Main Menu' => popurl(2),
), ' onLoad="visualize()"')
%>
% if ( $cgi->param('error') ) {
Error: <% $cgi->param('error') %>
% }
|