X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fpart_export.cgi;h=1450ac3b3cf94c1e53bbd1fc42e5dd74833ba8d0;hb=0978ea95c15ee2af833b20b5985d3b57e194966d;hp=a2fad56a3cf0fbf2bcc1554983a8581fee8fc0ee;hpb=03870c8fda3909d8aeb9d7120bc1debc3935f1c3;p=freeside.git
diff --git a/httemplate/edit/part_export.cgi b/httemplate/edit/part_export.cgi
index a2fad56a3..1450ac3b3 100644
--- a/httemplate/edit/part_export.cgi
+++ b/httemplate/edit/part_export.cgi
@@ -7,6 +7,12 @@
<% ntable("#cccccc",2) %>
+ Export name
+
+
+
+
+
Export host
@@ -45,15 +51,19 @@ $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{''}='';
+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 machine )],
+ 'form_text' => [qw( exportnum exportname machine )],
# 'form_checkbox' => [qw()],
'html_between' => " \n",
'layer_callback' => sub {
@@ -77,6 +87,13 @@ my $widget = new HTML::Widgets::SelectLayers(
? $optinfo->{default}
: ''
);
+ if ( $type eq 'title' ) {
+ $html .= qq!! .
+ $label .
+ ' ';
+ next;
+ }
+
# 'freeform': disables table formatting of options. Instead, each
# option can define "before" and "after" strings which are inserted
# around the selector.
@@ -133,6 +150,26 @@ my $widget = new HTML::Widgets::SelectLayers(
$html .= '';
}
}
+
+ if ( $exports->{$layer}{nas} and qsearch('nas',{}) ) {
+ # show NAS checkboxes
+ $html .= '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 .= '