X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main%2Fmenu.html;h=ab56bcfcbeb04dddf1c6fae48ac0ce3546b2f76e;hp=326c2f9549b7e2c9b5eb8b48571bfd73b8f51d07;hb=4f5619288413a185e9933088d9dd8c5afbc55dfa;hpb=ce99c7b3a33cf6dbafbd95cc6ff250313f830f6a

diff --git a/httemplate/view/cust_main/menu.html b/httemplate/view/cust_main/menu.html
index 326c2f954..ab56bcfcb 100644
--- a/httemplate/view/cust_main/menu.html
+++ b/httemplate/view/cust_main/menu.html
@@ -14,13 +14,15 @@
 
 #menu_ul a {
   display: block;
-  margin: 0;
+  margin-left: 0;
+  margin-right: 1em;
+  margin-bottom: -1px;
+  margin-top: 0;
   padding: .5em .75em;
-  background: #f8f8f8;
+  background: #e0e0e0;
   color: #525151;
   white-space: nowrap;
   text-decoration: none;
-  border-bottom: thin solid #CFDFDF;
   border-top-left-radius: .5em;
   border-top-right-radius: .5em;
 }
@@ -28,10 +30,10 @@
 #menu_ul a.current_show {
   font-weight: bold;
   background: #FFFFFF;
-  border-top: thin solid #CFDEFF;
-  border-left: thin solid #CFDEFF;
-  border-right: thin solid #CFDEFF;
-  border-bottom: none;
+  border-top: thin solid #7e0079;
+  border-left: thin solid #7e0079;
+  border-right: thin solid #7e0079;
+  border-bottom: thin solid #ffffff;
 }
 
 #menu_ul ul {
@@ -42,10 +44,10 @@
   top: 100%;
   left: 0;
   background: #ffffff;
-  border-top: none;
-  border-left: thin solid #CFDEFF;
-  border-right: thin solid #CFDEFF;
-  border-bottom: thin solid #CFDEFF;
+  border: thin solid #7e0079;
+  z-index:8888;
+  border-radius: 2px;
+  box-shadow: #333333 1px 1px 2px;
 }
 
 #menu_ul ul li {
@@ -62,7 +64,6 @@
 }
 
 #menu_ul a:hover {
-  background: #cfdeff;
   text-decoration: underline;
   color: #7e0079;
 }
@@ -111,6 +112,9 @@ my $conf = FS::Conf->new;
 
 my %payby = map { $_ => 1 } $conf->config('payby');
 
+# cached for conditions, to avoid looking it up twice
+my $invoicing_list_emailonly = $cust_main->invoicing_list_emailonly;
+
 # nice declarative menu; should be a parameter to some kind of menu generator
 my @menu = ( 
   [
@@ -193,10 +197,12 @@ my @menu = (
       url         => sub {
                       my $cust_main = shift;
                       my $agentnum = $cust_main->agentnum;
-                      'misc/email-customers.html?table=cust_main;search_hash='.
-                      'agent_virt_agentnum='.$agentnum.";custnum=$custnum";
+                      'misc/email-customers.html?table=cust_main;'.
+                      'agent_virt_agentnum='.$agentnum.";custnum=$custnum;url=".
+                      uri_escape($cgi->self_url);
                      },
-      condition   => sub { shift->invoicing_list_emailonly },
+      condition   => sub { $invoicing_list_emailonly },
+      acl         => 'Bulk send customer notices',
     },
   ],
   [
@@ -251,7 +257,7 @@ my @menu = (
       show  => 'quotations',
     },
     {
-      label => 'Add quotation',
+      label => 'Create new quotation',
       url   => "edit/quotation.html?custnum=$custnum",
       acl   => 'Generate quotation',
     },
@@ -446,9 +452,9 @@ my @menu = (
     },
 # separator, definitely
     {
-      label       => 'Download statement',
+      label       => 'Download PDF statement',
       url         => "view/cust_main_statement-pdf.cgi?$custnum",
-      acl         => 'List invoices',
+      acl         => 'View legacy typeset statements',
       condition   => sub {
         FS::cust_bill->count('custnum = ?', shift->custnum) > 0
       },
@@ -477,6 +483,18 @@ my @menu = (
         FS::cust_pay_pending->count('custnum = ?', shift->custnum) > 0
       },
     },
+    {
+      label       => 'Email statement to this customer',
+      url         => sub {
+                      my $cust_main = shift;
+                      my $agentnum = $cust_main->agentnum;
+                      'misc/email-customer-statement.html?table=cust_main;'.
+                      'agent_virt_agentnum='.$agentnum.";custnum=$custnum;url=".
+                      uri_escape($cgi->self_url);
+                     },
+      condition   => sub { $invoicing_list_emailonly },
+      acl         => 'Resend invoices',
+    },
   ],
   [
     {