<& elements/process.html,
- 'debug' => 1,
+ #'debug' => 1,
'table' => 'part_fee',
'agent_virt' => 1,
'agent_null_right' => 'Edit global fee definitions',
],
},
],
+ 'precheck_callback'=> \&precheck,
&>
<%init>
die "access denied"
unless $acl_edit or $acl_edit_global;
+sub precheck {
+ my $cgi = shift;
+ if ( $cgi->param('basis') =~ /^(\w+)$/ ) {
+ my $basis = $1;
+ $cgi->param('percent', $cgi->param($basis.'_percent') );
+ }
+ ''; #no error
+}
+
</%init>