1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
<!-- mason kludge -->
%
%
%#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' => "</TD></TR></TABLE>\n",
% 'layer_callback' => sub {
% my $layer = shift;
% my $html = qq!<INPUT TYPE="hidden" NAME="exporttype" VALUE="$layer">!.
% ntable("#cccccc",2);
%
% $html .= '<TR><TD ALIGN="right">Description</TD><TD BGCOLOR=#ffffff>'.
% $exports->{$layer}{notes}. '</TD></TR>'
% 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!<TR><TD ALIGN="right">$label</TD><TD>!;
% if ( $type eq 'select' ) {
% $html .= qq!<SELECT NAME="$option">!;
% foreach my $select_option ( @{$optinfo->{options}} ) {
% #if ( ref($select_option) ) {
% #} else {
% my $selected = $select_option eq $value ? ' SELECTED' : '';
% $html .= qq!<OPTION VALUE="$select_option"$selected>!.
% qq!$select_option</OPTION>!;
% #}
% }
% $html .= '</SELECT>';
% } elsif ( $type eq 'textarea' ) {
% $html .= qq!<TEXTAREA NAME="$option" COLS=80 ROWS=8 WRAP="virtual">!.
% encode_entities($value). '</TEXTAREA>';
% } elsif ( $type eq 'text' ) {
% $html .= qq!<INPUT TYPE="text" NAME="$option" VALUE="!.
% encode_entities($value). '" SIZE=64>';
% } elsif ( $type eq 'checkbox' ) {
% $html .= qq!<INPUT TYPE="checkbox" NAME="$option" VALUE="1"!;
% $html .= ' CHECKED' if $value;
% $html .= '>';
% } else {
% $html .= "unknown type $type";
% }
% $html .= '</TD></TR>';
% }
% $html .= '</TABLE>';
%
% $html .= '<INPUT TYPE="hidden" NAME="options" VALUE="'.
% join(',', keys %{$exports->{$layer}{options}} ). '">';
%
% $html .= '<INPUT TYPE="hidden" NAME="nodomain" VALUE="'.
% $exports->{$layer}{nodomain}. '">';
%
% $html .= '<INPUT TYPE="submit" VALUE="'.
% ( $part_export->exportnum ? "Apply changes" : "Add export" ).
% '">';
%
% $html;
% },
%);
%
%
<% include("/elements/header.html","$action Export", menubar(
'Main Menu' => popurl(2),
), ' onLoad="visualize()"')
%>
<% include('/elements/error.html') %>
<FORM NAME="dummy">
<INPUT TYPE="hidden" NAME="exportnum" VALUE="<% $part_export->exportnum %>">
<% ntable("#cccccc",2) %>
<TR>
<TD ALIGN="right">Export host</TD>
<TD>
<INPUT TYPE="text" NAME="machine" VALUE="<% $part_export->machine %>">
</TD>
</TR>
<TR>
<TD ALIGN="right">Export</TD>
<TD><% $widget->html %>
</BODY>
</HTML>
|
