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 7b8f68a..b1464b5 100644 (file)
--- a/httemplate/view/cust_main/menu.html
+++ b/httemplate/view/cust_main/menu.html
@@ -60,18 +60,12 @@
   text-decoration: none;
 }
 
-#customer_menu ul a {
+#customer_menu ul a,
+#customer_menu ul form {
   background: transparent;
+  border: none;
 }
 
-%#  #customer_menu ul li.ui-state-active {
-%#    background: #f8f0fc;
-%#    border: 1px solid #7e0079;
-%#    border-radius: 2px;
-%#    margin-right: 1px;
-%#    margin-left: 1px;
-%#  }
-
 </style>
 
 <& /elements/dropdown-menu.html,
@@ -91,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;
@@ -182,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;
@@ -206,7 +208,7 @@ my @menu = (
       confexists  => '!cust_main-disable_notes',
       acl         => 'Add customer note',
       width       => 875,
-      height      => 538,
+      height      => 548,
     },
     {
       label       => 'Attach file',
@@ -271,7 +273,7 @@ my @menu = (
       actionlabel => 'Order new package',
       color       => '#333399',
       width       => 960,
-      height      => 740,
+      height      => 850,
       acl         => 'Order customer package',
     },
     {
@@ -378,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} },
+        },
       ],
     },
 
@@ -459,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
+           },
+        },
 
       ],