httemplate/edit/process/part_fee.html

   1 <& elements/process.html,
   2   #'debug'             => 1,
   3   'table'             => 'part_fee',
   4   'agent_virt'        => 1,
   5   'agent_null_right'  => 'Edit global fee definitions',
   6   'viewall_dir'       => 'browse',
   7   'process_o2m'       => [
   8                            {
   9                               'table'   => 'part_fee_msgcat',
  10                               'fields'  => [ 'locale', 'itemdesc' ],
  11                            },
  12                            {
  13                               'table'   => 'part_fee_usage',
  14                               'fields'  => [ 'classnum',
  15                                              'amount',
  16                                              'percent'
  17                                            ],
  18                            },
  19                          ],
  20   'precheck_callback'=> \&precheck,
  21 &>
  22 <%init>
  23
  24 my $curuser = $FS::CurrentUser::CurrentUser;
  25 my $acl_edit = $curuser->access_right('Edit fee definitions');
  26 my $acl_edit_global = $curuser->access_right('Edit global fee definitions');
  27 die "access denied"
  28   unless $acl_edit or $acl_edit_global;
  29
  30 sub precheck {
  31   my $cgi = shift;
  32   if ( $cgi->param('basis') =~ /^(\w+)$/ ) {
  33     my $basis = $1;
  34     $cgi->param('percent', $cgi->param($basis.'_percent') );
  35   }
  36   ''; #no error
  37 }
  38
  39 </%init>