better height for pkg order popup

[freeside.git] / httemplate / view / cust_main / menu.html

diff --git a/httemplate/view/cust_main/menu.html b/httemplate/view/cust_main/menu.html
index 6f177c3..b1464b5 100644 (file)
--- 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',
@@ -263,7 +273,7 @@ my @menu = (
       actionlabel => 'Order new package',
       color       => '#333399',
       width       => 960,
-      height      => 740,
+      height      => 850,
       acl         => 'Order customer package',
     },
     {
@@ -370,6 +380,15 @@ my @menu = (
         #  acl         => [ 'Post payment', ],
         ##  condition   => sub { $payby{MCHK} },
         #},
+        {
+          label       => 'Record manual (non-Freeside) Paypal payment',
+          popup       => "edit/cust_pay.cgi?popup=1;payby=PPAL;custnum=$custnum",
+          actionlabel => 'Enter Paypal payment',
+          width       => 763,
+          height      => 392,
+          acl         => [ 'Post Payment', 'Post Paypal payment', ],
+          condition   => sub { $payby{PPAL} },
+        },
       ],
     },
 
@@ -451,6 +470,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
+           },
+        },
 
       ],