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
|
%if ( $error ) {
% $cgi->param('error', $error );
<% $cgi->redirect(popurl(2). "part_export.cgi?". $cgi->query_string ) %>
%} else {
<% $cgi->redirect(popurl(3). "browse/part_export.cgi") %>
%}
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
my $exportnum = $cgi->param('exportnum');
my $old = qsearchs('part_export', { 'exportnum'=>$exportnum } ) if $exportnum;
my %vars = $cgi->Vars;
#fixup options
#warn join('-', split(',',$cgi->param('options')));
my %options = map {
my $value = $vars{$_};
$value =~ s/\0/ /g; # deal with multivalued options
$value =~ s/\r\n/\n/g; #browsers? (textarea)
$_ => $value;
} split(',', $cgi->param('options'));
# deal with multiline options
# %vars should never contain incomplete rows, but just in case it does,
# we make a list of all the row indices that contain values, and
# then write a line in each option for each row, even if it's empty.
# This ensures that all values with the same row index line up.
my %optionrows;
foreach my $option (split(',', $cgi->param('multi_options'))) {
$optionrows{$option} = {};
my %values; # bear with me
for (keys %vars) {
/^$option(\d+)/ or next;
$optionrows{$option}{$1} = $vars{$option.$1};
$optionrows{_ALL_}{$1} = 1 if length($vars{$option.$1});
}
}
foreach my $option (split(',', $cgi->param('multi_options'))) {
my $value = '';
foreach my $row (sort keys %{$optionrows{_ALL_}}) {
$value .= ($optionrows{$option}{$row} // '') . "\n";
}
chomp($value);
$options{$option} = $value;
}
my $new = new FS::part_export ( {
map {
$_, scalar($cgi->param($_));
} fields('part_export')
} );
if ( $cgi->param('svc_machine') eq 'Y' ) {
$new->machine('_SVC_MACHINE');
$new->part_export_machine_textarea( $cgi->param('part_export_machine') );
$new->default_machine_name( $cgi->param('default_machine_name') );
}
my $error;
if ( $exportnum ) {
#warn $old;
#warn $exportnum;
#warn $new->machine;
$error = $new->replace($old,\%options);
} else {
$error = $new->insert(\%options);
# $exportnum = $new->exportnum;
}
my $info = FS::part_export::export_info()->{$new->exporttype};
if ( $info->{nas} ) {
my @nasnums = map { /^nasnum(\d+)$/ ? $1 : () } keys %{ $cgi->Vars };
$error ||= $new->process_m2m(
link_table => 'export_nas',
target_table => 'nas',
params => \@nasnums
);
}
</%init>
|
