my $curuser = $FS::CurrentUser::CurrentUser;
my $conf = FS::Conf->new;
-my %payby = map { $_ => 1 } $conf->config('payby');
+my @payby = grep /\w/, $conf->config('payby');
+@payby = (qw( CARD DCRD CHEK DCHK ))
+ unless @payby;
+my %payby = map { $_ => 1 } @payby;
# cached for conditions, to avoid looking it up twice
my $invoicing_list_emailonly = $cust_main->invoicing_list_emailonly;
'View customer billing events' ],
},
{
+ label => 'Test billing events',
+ url => "misc/test-part_event.html?custnum=$custnum",
+ acl => 'Configuration',
+ },
+ {
label => 'Email a notice to this customer',
url => sub {
my $cust_main = shift;
confexists => '!cust_main-disable_notes',
acl => 'Add customer note',
width => 875,
- height => 538,
+ height => 548,
},
{
label => 'Attach file',
# acl => ['Post refund' ],
## condition => sub { $payby{MCHK} },
#},
+ {
+ label => 'Enter electronic check refund',
+ popup => "edit/cust_refund.cgi?popup=1;payby=CHEK;custnum=$custnum",
+ actionlabel => 'Enter electronic check refund',
+ width => 440,
+ acl => ['Post refund' ],
+ },
],