X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main%2Fmenu.html;h=63d5c9abd4b598b3883498f4b75b4be56dc52e52;hb=6f08493827f30fe18fd99c32bbb1625b064017ec;hp=6f177c3c4aefe1d753f5d8a5ebf19819404a844d;hpb=5e05db4292f9fb330b732367edaace91d1098d8e;p=freeside.git

diff --git a/httemplate/view/cust_main/menu.html b/httemplate/view/cust_main/menu.html
index 6f177c3c4..63d5c9abd 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;
 }
 
 </style>
@@ -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,16 @@ 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' ],
+           condition   => sub {
+             FS::pay_batch->can_handle_electronic_refunds
+           },
+        },
 
       ],