| Export |
<% $widget->html %>
<% include('/elements/footer.html') %>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
#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();
tie my %layers, 'Tie::IxHash',
'' => '',
map { $_ => "$_ - ". $exports->{$_}{desc} }
sort { $a cmp $b }
keys %$exports;
;
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 exportname machine )],
# 'form_checkbox' => [qw()],
'html_between' => " |
\n",
'layer_callback' => sub {
my $layer = shift;
my $html = qq!| Export RADIUS clients | ';
$html .= include('/elements/checkboxes-table.html',
'source_obj' => $part_export,
'link_table' => 'export_nas',
'target_table' => 'nas',
#hashref => {},
'name_callback' => sub {
$_[0]->shortname . ' (' . $_[0]->nasname . ')',
},
'default' => 'yes',
'target_link' => $p.'edit/nas.html?',
);
$html .= ' |
';
}
$html .= '';
$html .= '