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 .= $params->{$cgi_field.'_units'};
  43                                 }
  44
  45                                 #warn "value of $cgi_field is $value\n";
  46
  47                                 ( $field => $value );
  48                               }
  49                               keys %option_fields;
  50         },
  51       },
  52
  53     'args_callback' => sub {
  54
  55       my( $cgi, $object ) = @_;
  56
  57       my $prefix = $object->action.'.';
  58
  59       map { my $option = $_;
  60             #my $value = scalar( $cgi->param( "$prefix$option" ) );
  61             my $value = join(',', $cgi->param( "$prefix$option" ) );
  62
  63             if ( $option eq 'reasonnum' && $value == -1 ) {
  64               $value = {
  65                 'typenum' => scalar( $cgi->param( "new$prefix${option}T" ) ),
  66                 'reason'  => scalar( $cgi->param( "new$prefix${option}"  ) ),
  67               };
  68             }
  69
  70             ( $option => $value );
  71           }
  72           @{ $object->option_fields_listref };
  73
  74     },
  75     'precheck_callback' => sub {
  76       my $cgi = shift;
  77       my $action = $cgi->param('action') or return;
  78       my %actionfields = map { $_ =~ /^$action\.(.*)/; $1 => $cgi->param($_) }
  79                          grep { /^$action\./ } $cgi->param;
  80       if ( exists($actionfields{'reasonnum'}) and
  81            length($actionfields{'reasonnum'}) == 0 ) {
  82         return 'Reason required';
  83       }
  84       return '';
  85     },
  86
  87     'agent_virt'       => 1,
  88     'agent_null_right' => 'Edit global billing events',
  89 )
  90 %>
  91 <%init>
  92
  93 die "access denied"
  94   unless $FS::CurrentUser::CurrentUser->access_right('Edit billing events')
  95       || $FS::CurrentUser::CurrentUser->access_right('Edit global billing events');
  96
  97 </%init>