<% #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') %>

<% } %>
<%= ntable("#cccccc",2) %> Export host Export <%= $widget->html %>