httemplate/edit/process/commission_schedule.html

   1 <& elements/process.html,
   2   'table'       => 'commission_schedule',
   3   'viewall_dir' => 'browse',
   4   'process_o2m' => {
   5    'table'  => 'commission_rate',
   6    'fields' => [qw( cycle amount percent )],
   7   },
   8   'precheck_callback' => $precheck,
   9   'debug' => 1,
  10 &>
  11 <%init>
  12
  13 die "access denied"
  14   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
  15
  16 my $precheck = sub {
  17   my $cgi = shift;
  18   $cgi->param('reasonnum') =~ /^(-?\d+)$/ or die "Illegal reasonnum";
  19
  20   my ($reasonnum, $error) = $m->comp('/misc/process/elements/reason');
  21   if (!$reasonnum) {
  22     $error ||= 'Reason required'
  23   }
  24   $cgi->param('reasonnum', $reasonnum) unless $error;
  25
  26   # remove rate entries with no cycle selected
  27   foreach my $k (grep /^commissionratenum\d+$/, $cgi->param) {
  28     if (! $cgi->param($k.'_cycle') ) {
  29       $cgi->delete($k);
  30     }
  31   }
  32
  33   $error;
  34 };
  35
  36 </%init>