X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main%2Fmenu.html;h=cc9f1fc712977a43807ebcb943aeda971e1f09fb;hb=aa0c6cc1247b802d58b4c890339bcacf4d3f567a;hp=6f177c3c4aefe1d753f5d8a5ebf19819404a844d;hpb=def729d3a87b31aa3748527e9bf4e4a3558a8f30;p=freeside.git diff --git a/httemplate/view/cust_main/menu.html b/httemplate/view/cust_main/menu.html index 6f177c3c4..cc9f1fc71 100644 --- a/httemplate/view/cust_main/menu.html +++ b/httemplate/view/cust_main/menu.html @@ -60,8 +60,10 @@ text-decoration: none; } -#customer_menu ul a { +#customer_menu ul a, +#customer_menu ul form { background: transparent; + border: none; } @@ -83,7 +85,10 @@ my $custnum = $cust_main->custnum; 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; @@ -174,6 +179,11 @@ my @menu = ( '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; @@ -198,7 +208,7 @@ my @menu = ( confexists => '!cust_main-disable_notes', acl => 'Add customer note', width => 875, - height => 538, + height => 548, }, { label => 'Attach file', @@ -451,6 +461,13 @@ my @menu = ( # 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' ], + }, ],