X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fpart_export.cgi;h=9a0e0bd29899d0416e90365414380f1e7f392fb5;hb=0e845fa6f04733d82ea8ca092c7778aef773ab5d;hp=8b697e14230ca24a7d0774f8202801f93ecf76d0;hpb=ad84bf7cfdb56aa1fe268ea315b7a2f7dd768db2;p=freeside.git
diff --git a/httemplate/edit/part_export.cgi b/httemplate/edit/part_export.cgi
index 8b697e142..9a0e0bd29 100644
--- a/httemplate/edit/part_export.cgi
+++ b/httemplate/edit/part_export.cgi
@@ -7,6 +7,12 @@
<% ntable("#cccccc",2) %>
+ Export name |
+
+
+ |
+
+
Export host |
@@ -53,7 +59,7 @@ my $widget = new HTML::Widgets::SelectLayers(
'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,7 +83,16 @@ my $widget = new HTML::Widgets::SelectLayers(
? $optinfo->{default}
: ''
);
- $html .= qq!$label | !;
+ # 'freeform': disables table formatting of options. Instead, each
+ # option can define "before" and "after" strings which are inserted
+ # around the selector.
+ my $freeform = $optinfo->{freeform};
+ if ( $freeform ) {
+ $html .= $optinfo->{before} || '';
+ }
+ else {
+ $html .= qq! |
$label | !;
+ }
if ( $type eq 'select' ) {
my $size = defined($optinfo->{size}) ? " SIZE=" . $optinfo->{size} : '';
my $multi = defined($optinfo->{multi}) ? ' MULTIPLE' : '';
@@ -108,7 +123,7 @@ my $widget = new HTML::Widgets::SelectLayers(
$html .= qq!';
} elsif ( $type eq 'text' ) {
- $html .= qq!';
} elsif ( $type eq 'checkbox' ) {
$html .= qq!{after} || '';
+ }
+ else {
+ $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 .= '