<% include('/elements/header.html', "$action Export", '', ' onLoad="visualize()"') %> <% include('/elements/error.html') %>

<% ntable("#cccccc",2) %> Export name 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 )], # 'form_checkbox' => [qw()], 'html_between' => "\n", 'layer_callback' => sub { my $layer = shift; # create 'config_element' to generate the whole layer with a Mason component if ( my $include = $exports->{$layer}{config_element} ) { # might need to adjust the scope of this at some point return $m->scomp($include, part_export => $part_export, layer => $layer, export_info => $exports->{$layer} ); } my $html = qq!!. ntable("#cccccc",2); if ( $layer ) { $html .= 'Description'. $exports->{$layer}{notes}. ''; if ( $exports->{$layer}{no_machine} ) { $html .= ''. ''; } else { $html .= 'Hostname or IP'; my $machine = $part_export->machine; if ( $exports->{$layer}{svc_machine} ) { my( $N_CHK, $Y_CHK) = ( 'CHECKED', '' ); my( $machine_DISABLED, $pem_DISABLED) = ( '', 'DISABLED' ); my $part_export_machine = ''; if ( $cgi->param('svc_machine') eq 'Y' || $machine eq '_SVC_MACHINE' ) { $Y_CHK = 'CHECKED'; $N_CHK = 'CHECKED'; $machine_DISABLED = 'DISABLED'; $pem_DISABLED = ''; $machine = ''; $part_export_machine = $cgi->param('part_export_machine') || join "\n", map $_->machine, grep ! $_->disabled, $part_export->part_export_machine; } my $oc = qq(onChange="${layer}_svc_machine_changed(this)"); $html .= qq[
Selected in each customer service from these choices $part_export_machine ]; } else { $html .= qq(). ''; } $html .= ""; } } 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} : '' ); 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. 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 = ($optinfo->{multi} || $optinfo->{multiple}) ? ' MULTIPLE' : ''; $html .= qq!!; my @values = split '\s+', $value if $multi; my @options; if (defined($optinfo->{option_values})) { my $valsub = $optinfo->{option_values}; @options = &$valsub(); } elsif (defined($optinfo->{options})) { @options = @{$optinfo->{options}}; } foreach my $select_option ( @options ) { #if ( ref($select_option) ) { #} else { my $selected = ($multi ? grep {$_ eq $select_option} @values : $select_option eq $value ) ? ' SELECTED' : ''; my $label = $select_option; if (defined($optinfo->{option_label})) { my $labelsub = $optinfo->{option_label}; $label = &$labelsub($select_option); } $html .= qq!!. qq!$label!; #} } $html .= ''; } elsif ( $type eq 'textarea' ) { $html .= qq!!. encode_entities($value). ''; } 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 .= ''; $html .= ''; $html .= ''; $html; }, );