httemplate/edit/process/part_event.html

   1 <% include( 'elements/process.html',
   2     #'debug'          => 1,
   3     'table'          => 'part_event',
   4     'viewall_dir'    => 'browse',
   5     'process_m2name' =>
   6       {
   7         'link_table'    => 'part_event_condition',
   8         'num_col'       => 'eventpart',
   9         'name_col'      => 'conditionname',
  10         'names_list'    => [ FS::part_event_condition->all_conditionnames() ],
  11         'param_style'   => 'name_colN values',
  12         'args_callback' => sub { # FS/FS/m2name_Common.pm
  13           my( $object, $prefix, $params, $listref ) = @_;
  14           #warn "$object $prefix $params $listref\n";
  15
  16           my $cond = $object->conditionname;
  17
  18           my %option_fields = $object->option_fields;
  19
  20           push @$listref, map {
  21                                 my $field = $_;
  22
  23                                 my $cgi_field = "$prefix$cond.$field";
  24
  25                                 my $value = $params->{$cgi_field};
  26
  27                                 my $info = $option_fields{$_};
  28                                 $info = { label=>$info, type=>'text' }
  29                                   unless ref($info);
  30
  31                                 if ( $info->{'type'} =~
  32                                        /^(select|checkbox)-?multiple$/
  33                                      or $info->{'type'} =~ /^select/
  34                                         && $info->{'multiple'}
  35                                    )
  36                                 {
  37                                   #special processing for compound fields
  38                                   $value = { map { $_ => 1 }
  39                                                  split(/\0/, $value)
  40                                            };
  41                                 } elsif ( $info->{'type'} eq 'freq' ) {
  42                                   $value = '0' if !length($value) and !$info->{'allow_blank'};
  43                                   $value .= $params->{$cgi_field.'_units'} if length($value);
  44                                 }
  45
  46                                 #warn "value of $cgi_field is $value\n";
  47
  48                                 ( $field => $value );
  49                               }
  50                               keys %option_fields;
  51         },
  52       },
  53
  54     'args_callback' => sub {
  55
  56       my( $cgi, $object ) = @_;
  57
  58       my $prefix = $object->action.'.';
  59
  60       map { my $option = $_;
  61             #my $value = scalar( $cgi->param( "$prefix$option" ) );
  62             my $value = join(',', $cgi->param( "$prefix$option" ) );
  63
  64             if ( $option eq 'reasonnum' && $value == -1 ) {
  65               my $reason_prefix = $object->action . '_' . $option .  '_new_';
  66               my $new_reason = FS::reason->new;
  67               foreach ( qw( reason_type reason unsuspend pkgpart
  68                             unsuspend_hold unused_credit ) ) {
  69                 $new_reason->set($_, $cgi->param("$reason_prefix$_"));
  70               }
  71               warn Dumper $new_reason;
  72               my $error = $new_reason->insert;
  73               die "error creating reason: $error" if $error;
  74               $value = $new_reason->reasonnum;
  75             }
  76             ( $option => $value );
  77           }
  78           @{ $object->option_fields_listref };
  79
  80     },
  81     'precheck_callback' => sub {
  82       my $cgi = shift;
  83       my $action = $cgi->param('action') or return;
  84       my %actionfields = map { $_ =~ /^$action\.(.*)/; $1 => $cgi->param($_) }
  85                          grep { /^$action\./ } $cgi->param;
  86       if ( exists($actionfields{'reasonnum'}) and
  87            length($actionfields{'reasonnum'}) == 0 ) {
  88         return 'Reason required';
  89       }
  90       if ( $cgi->param('_initialize') ) {
  91         $cgi->param('disabled', 'Y');
  92       }
  93
  94       my $balance_age_rx = qr/^(condition.+)\.balance_age\.age$/;
  95
  96       foreach my $param ( keys %{ $cgi->Vars() } ){
  97
  98         next unless ( $param =~ /$balance_age_rx/ );
  99         next unless $cgi->param($1) eq 'balance_age';
 100
 101         my $errstr = FS::part_event::Condition::balance_age->
 102           check_options( { age       => $cgi->param($param),
 103                            age_units => $cgi->param("${param}_units") } );
 104
 105         return $errstr if $errstr;
 106       }
 107
 108       return '';
 109     },
 110     'noerror_callback' => sub {
 111       my ($cgi, $new) = @_;
 112       if ( $cgi->param('_initialize') ) {
 113         my $job = new FS::queue {
 114           'job' => 'FS::part_event::process_initialize'
 115         };
 116         my $error = $job->insert('eventpart' => $new->eventpart);
 117         warn "error queueing job: $error\n" if $error; # can't do anything else
 118       }
 119     },
 120
 121     'agent_virt'       => 1,
 122     'agent_null_right' => 'Edit global billing events',
 123 )
 124 %>
 125 <%init>
 126
 127 die "access denied"
 128   unless $FS::CurrentUser::CurrentUser->access_right('Edit billing events')
 129       || $FS::CurrentUser::CurrentUser->access_right('Edit global billing events');
 130
 131 </%init>