1 <% include( 'elements/process.html',
5 'agent_null_right' => \@agent_null_right,
6 'redirect' => $redirect_callback,
7 'viewall_dir' => 'browse',
8 'viewall_ext' => 'cgi',
10 'precheck_callback' => $precheck_callback,
11 'args_callback' => $args_callback,
12 'process_m2m' => \@process_m2m,
13 'process_o2m' => \@process_o2m,
18 my $customizing = ( ! $cgi->param('pkgpart') && $cgi->param('pkgnum') );
20 my $curuser = $FS::CurrentUser::CurrentUser;
22 my $edit_global = 'Edit global package definitions';
23 my $customize = 'Customize customer package';
26 unless $curuser->access_right('Edit package definitions')
27 || $curuser->access_right($edit_global)
28 || ( $customizing && $curuser->access_right($customize) );
30 my @agent_null_right = ( $edit_global );
31 push @agent_null_right, $customize if $customizing;
34 my $precheck_callback = sub {
37 my $conf = new FS::Conf;
39 foreach (qw( setuptax recurtax disabled )) {
40 $cgi->param($_, '') unless defined $cgi->param($_);
43 return 'Must select a tax class'
44 if $cgi->param('taxclass') eq '(select)';
47 foreach ($cgi->param('agent_type')) {
49 push @agents, $1 if $1;
51 return "At least one agent type must be specified."
52 unless scalar(@agents)
53 #wtf? || ( $cgi->param('clone') && $cgi->param('clone') =~ /^\d+$/ )
54 || $cgi->param('disabled')
55 || $cgi->param('agentnum');
63 my $args_callback = sub {
64 my( $cgi, $new ) = @_;
66 my @args = ( 'primary_svc' => scalar($cgi->param('pkg_svc_primary')) );
72 $cgi->param('plan') =~ /^(\w+)$/ or die 'unparsable plan';
75 tie my %plans, 'Tie::IxHash', %{ FS::part_pkg::plan_info() };
76 my $href = $plans{$plan}->{'fields'};
79 my $options = $cgi->param($plan."__OPTIONS");
80 my @options = split(',', $options);
82 map { my $optionname = $_;
83 my $param = $plan."__$optionname";
84 my $parser = exists($href->{$optionname}{parse})
85 ? $href->{$optionname}{parse}
87 my $value = join(', ', &$parser($cgi->param($param)));
88 my $check = $href->{$optionname}{check};
89 if ( $check && ! &$check($value) ) {
90 $value = join(', ', $cgi->param($param));
91 $error ||= "Illegal ".
92 ($href->{$optionname}{name}||$optionname). ": $value";
94 ( $optionname => $value );
96 grep { $_ !~ /^report_option_/ }
99 foreach ( split(',', $cgi->param('taxproductnums') ) ) {
100 my $value = $cgi->param("taxproductnum_$_");
101 $error ||= "Illegal taxproductnum_$_: $value"
102 unless ( $value =~ /^\d*$/ );
103 $options{"usage_taxproductnum_$_"} = $value;
106 foreach ( grep $_, $cgi->param('report_option') ) {
107 $error ||= "Illegal optional report class: $_" unless ( $_ =~ /^\d*$/ );
108 $options{"report_option_$_"} = 1;
111 $options{$_} = scalar( $cgi->param($_) )
112 for (qw( setup_fee recur_fee disable_line_item_date_ranges ));
114 push @args, 'options' => \%options;
120 my %part_pkg_currency = (
121 map { $_ => scalar($cgi->param($_)) }
122 #grep /._[A-Z]{3}$/, #support other options
123 grep /^(setup|recur)_fee_[A-Z]{3}$/,
127 push @args, 'part_pkg_currency' => \%part_pkg_currency;
133 my @svcparts = map { $_->svcpart } qsearch('part_svc', {});
134 my %pkg_svc = map { $_ => scalar($cgi->param("pkg_svc$_" )) } @svcparts;
135 my %hidden_svc = map { $_ => scalar($cgi->param("hidden$_" )) } @svcparts;
136 my %bulk_skip = map { $_ => ( $cgi->param("no_bulk_skip$_") eq 'Y'
141 push @args, 'pkg_svc' => \%pkg_svc,
142 'hidden_svc' => \%hidden_svc,
143 'bulk_skip' => \%bulk_skip;
146 # cust_pkg and custnum_ref (inserts only)
148 unless ( $cgi->param('pkgpart') ) {
149 push @args, 'cust_pkg' => scalar($cgi->param('pkgnum')),
150 'custnum_ref' => \$custnum;
154 foreach my $param ( $cgi->param ) {
155 if ( $param =~ /^export(\d+)$/ && length($cgi->param($param)) > 0 ) {
156 $part_pkg_vendor{$1} = $cgi->param($param);
159 if ( keys %part_pkg_vendor > 0 ) {
160 push @args, 'part_pkg_vendor' => \%part_pkg_vendor;
163 #warn "args: ".join('/', @args). "\n";
169 my $redirect_callback = sub {
170 #my( $cgi, $new ) = @_;
171 return '' unless $custnum;
172 my $show = $curuser->default_customer_view =~ /^(jumbo|packages)$/
175 #my $frag = "cust_pkg$pkgnum"; #hack for IE ignoring real #fragment
177 #can we link back to the specific customized package? it would be nice...
178 popurl(3). "view/cust_main.cgi?custnum=$custnum$show;dummy=";
181 #these should probably move to @args above and be processed by part_pkg.pm...
183 $cgi->param('tax_override') =~ /^([\d,]+)$/;
184 my (@tax_overrides) = (grep "$_", split (",", $1));
188 'link_table' => 'part_pkg_taxoverride',
189 'target_table' => 'tax_class',
190 'params' => \@tax_overrides,
192 { 'link_table' => 'part_pkg_discount',
193 'target_table' => 'discount',
194 'params' => [ map $cgi->param($_),
195 grep /^discountnum/, $cgi->param
198 { 'link_table' => 'part_pkg_link',
199 'target_table' => 'part_pkg',
200 'base_field' => 'src_pkgpart',
201 'target_field' => 'dst_pkgpart',
202 'hashref' => { 'link_type' => 'svc', 'hidden' => '' },
203 'params' => [ map $cgi->param($_),
204 grep /^svc_dst_pkgpart/, $cgi->param
207 { 'link_table' => 'part_pkg_link',
208 'target_table' => 'part_pkg',
209 'base_field' => 'src_pkgpart',
210 'target_field' => 'dst_pkgpart',
211 'hashref' => { 'link_type' => 'supp', 'hidden' => '' },
212 'params' => [ map $cgi->param($_),
213 grep /^supp_dst_pkgpart/, $cgi->param
218 { 'link_table' => 'part_pkg_link',
219 'target_table' => 'part_pkg',
220 'base_field' => 'src_pkgpart',
221 'target_field' => 'dst_pkgpart',
222 'hashref' => { 'link_type' => 'bill', 'hidden' => $hidden },
223 'params' => [ map { $cgi->param($_) }
224 grep { my $param = "bill_dst_pkgpart__hidden";
226 (($digit) = /^bill_dst_pkgpart(\d+)/ ) &&
227 $cgi->param("$param$digit") eq $hidden;
235 foreach my $override_class ($cgi->param) {
236 next unless $override_class =~ /^tax_override_(\w+)$/;
239 my (@tax_overrides) = (grep "$_", split (",", $1))
240 if $cgi->param($override_class) =~ /^([\d,]+)$/;
243 'link_table' => 'part_pkg_taxoverride',
244 'target_table' => 'tax_class',
245 'hashref' => { 'usage_class' => $class },
246 'params' => [ @tax_overrides ],
251 my $conf = new FS::Conf;
254 foreach ($cgi->param('agent_type')) {
256 push @agents, $1 if $1;
259 'link_table' => 'type_pkgs',
260 'target_table' => 'agent_type',
261 'params' => \@agents,
264 my $targets = FS::part_pkg_usageprice->targets;
265 foreach my $amount_param ( grep /^usagepricepart(\d+)_amount$/, $cgi->param ) {
266 $amount_param =~ /^usagepricepart(\d+)_amount$/ or die 'unpossible';
268 my $amount = $cgi->param($amount_param);
269 if ( ! $amount && ! $cgi->param("usagepricepart${num}_price") ) {
270 #don't add empty rows just because the dropdowns have a value
271 $cgi->param("usagepricepart${num}_$_", '') for qw( currency action target );
274 my $target = $cgi->param("usagepricepart${num}_target");
275 $amount *= $targets->{$target}{multiplier} if $targets->{$target}{multiplier};
276 $cgi->param($amount_param, $amount);
281 'table' => 'part_pkg_msgcat',
282 'fields' => [qw( locale pkg )],
285 'table' => 'part_pkg_usageprice',
286 'fields' => [qw( price currency action target amount )],