httemplate/edit/process/part_pkg.cgi

   1 <% include( 'elements/process.html',
   2               #'debug'             => 1,
   3               'table'             => 'part_pkg',
   4               'agent_virt'        => 1,
   5               'agent_null_right'  => \@agent_null_right,
   6               'redirect'          => $redirect_callback,
   7               'viewall_dir'       => 'browse',
   8               'viewall_ext'       => 'cgi',
   9               'edit_ext'          => 'cgi',
  10               'precheck_callback' => $precheck_callback,
  11               'args_callback'     => $args_callback,
  12               'process_m2m'       => \@process_m2m,
  13           )
  14 %>
  15 <%init>
  16
  17 my $customizing = ( ! $cgi->param('pkgpart') && $cgi->param('pkgnum') );
  18
  19 my $curuser = $FS::CurrentUser::CurrentUser;
  20
  21 my $edit_global = 'Edit global package definitions';
  22 my $customize   = 'Customize customer package';
  23
  24 die "access denied"
  25   unless $curuser->access_right('Edit package definitions')
  26       || $curuser->access_right($edit_global)
  27       || ( $customizing && $curuser->access_right($customize) );
  28
  29 my @agent_null_right = ( $edit_global );
  30 push @agent_null_right, $customize if $customizing;
  31
  32
  33 my $precheck_callback = sub {
  34   my( $cgi ) = @_;
  35
  36   my $conf = new FS::Conf;
  37
  38   foreach (qw( setuptax recurtax disabled )) {
  39     $cgi->param($_, '') unless defined $cgi->param($_);
  40   }
  41
  42   return 'Must select a tax class'
  43     if $cgi->param('taxclass') eq '(select)';
  44
  45   my @agents = ();
  46   foreach ($cgi->param('agent_type')) {
  47     /^(\d+)$/;
  48     push @agents, $1 if $1;
  49   }
  50   return "At least one agent type must be specified."
  51     unless scalar(@agents)
  52            || ( $cgi->param('clone') && $cgi->param('clone') =~ /^\d+$/ )
  53            || ( !$cgi->param('pkgpart') && $conf->exists('agent-defaultpkg') )
  54            || $cgi->param('disabled')
  55            || $cgi->param('agentnum');
  56
  57   return '';
  58
  59 };
  60
  61 my $custnum = '';
  62
  63 my $args_callback = sub {
  64   my( $cgi, $new ) = @_;
  65
  66   my @args = ( 'primary_svc' => scalar($cgi->param('pkg_svc_primary')) );
  67
  68   ##
  69   #options
  70   ##
  71
  72   $cgi->param('plan') =~ /^(\w+)$/ or die 'unparsable plan';
  73   my $plan = $1;
  74
  75   tie my %plans, 'Tie::IxHash', %{ FS::part_pkg::plan_info() };
  76   my $href = $plans{$plan}->{'fields'};
  77
  78   my $error = '';
  79   my $options = $cgi->param($plan."__OPTIONS");
  80   my @options = split(',', $options);
  81   my %options =
  82     map { my $optionname = $_;
  83           my $param = $plan."__$optionname";
  84           my $parser = exists($href->{$optionname}{parse})
  85                          ? $href->{$optionname}{parse}
  86                          : sub { shift };
  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";
  93           }
  94           ( $optionname => $value );
  95         }
  96         @options;
  97
  98   foreach ( split(',', $cgi->param('taxproductnums') ) ) {
  99     my $value = $cgi->param("taxproductnum_$_");
 100     $error ||= "Illegal taxproductnum_$_: $value"
 101       unless ( $value =~ /^\d*$/  );
 102     $options{"usage_taxproductnum_$_"} = $value;
 103   }
 104
 105   $options{$_} = scalar( $cgi->param($_) )
 106     for (qw( setup_fee recur_fee ));
 107
 108   push @args, 'options' => \%options;
 109
 110   ###
 111   #pkg_svc
 112   ###
 113
 114   my %pkg_svc = map { $_ => scalar($cgi->param("pkg_svc$_")) }
 115                 map { $_->svcpart }
 116                 qsearch('part_svc', {} );
 117
 118   push @args, 'pkg_svc' => \%pkg_svc;
 119
 120   ###
 121   # cust_pkg and custnum_ref (inserts only)
 122   ###
 123   unless ( $cgi->param('pkgpart') ) {
 124     push @args, 'cust_pkg'    => scalar($cgi->param('pkgnum')),
 125                 'custnum_ref' => \$custnum;
 126   }
 127
 128   warn "args: ".join('/', @args). "\n";
 129
 130   @args;
 131
 132 };
 133
 134 my $redirect_callback = sub {
 135   #my( $cgi, $new ) = @_;
 136   return '' unless $custnum;
 137   popurl(3). "view/cust_main.cgi?keywords=$custnum;dummy=";
 138 };
 139
 140 #these should probably move to @args above and be processed by part_pkg.pm...
 141
 142 $cgi->param('tax_override') =~ /^([\d,]+)$/;
 143 my (@tax_overrides) = (grep "$_", split (",", $1));
 144
 145 my @process_m2m = (
 146   {
 147     'link_table'   => 'part_pkg_taxoverride',
 148     'target_table' => 'tax_class',
 149     'params'       => \@tax_overrides,
 150   },
 151   { 'link_table'   => 'part_pkg_link',
 152     'target_table' => 'part_pkg',
 153     'base_field'   => 'src_pkgpart',
 154     'target_field' => 'dst_pkgpart',
 155     'hashref'      => { 'link_type' => 'bill' },
 156     'params'       => [ map $cgi->param($_), grep /^bill_dst_pkgpart/, $cgi->param ],
 157   },
 158   { 'link_table'   => 'part_pkg_link',
 159     'target_table' => 'part_pkg',
 160     'base_field'   => 'src_pkgpart',
 161     'target_field' => 'dst_pkgpart',
 162     'hashref'      => { 'link_type' => 'svc' },
 163     'params'       => [ map $cgi->param($_), grep /^svc_dst_pkgpart/, $cgi->param ],
 164   },
 165 );
 166
 167 foreach my $override_class ($cgi->param) {
 168   next unless $override_class =~ /^tax_override_(\w+)$/;
 169   my $class = $1;
 170
 171   my (@tax_overrides) = (grep "$_", split (",", $1))
 172     if $cgi->param($override_class) =~ /^([\d,]+)$/;
 173
 174   push @process_m2m, {
 175     'link_table'   => 'part_pkg_taxoverride',
 176     'target_table' => 'tax_class',
 177     'hashref'      => { 'usage_class' => $class },
 178     'params'       => [ @tax_overrides ],
 179   };
 180
 181 }
 182
 183 my $conf = new FS::Conf;
 184
 185 if ( $cgi->param('pkgpart') || ! $conf->exists('agent_defaultpkg') ) {
 186   my @agents = ();
 187   foreach ($cgi->param('agent_type')) {
 188     /^(\d+)$/;
 189     push @agents, $1 if $1;
 190   }
 191   push @process_m2m, {
 192     'link_table'   => 'type_pkgs',
 193     'target_table' => 'agent_type',
 194     'params'       => \@agents,
 195   };
 196 }
 197
 198 </%init>