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 { $invoicing_list_emailonly },
acl => 'Bulk send customer notices',
},
# 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
},
url => sub {
my $cust_main = shift;
my $agentnum = $cust_main->agentnum;
- 'misc/email-customer-statement.html?table=cust_main;search_hash='.
+ '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 => [ 'View invoices', 'Bulk send customer notices' ],
+ acl => 'Resend invoices',
},
],
[
}
$a .= qq[>$label</A> ];
+ $cgi->param('show', $opt{show});
} elsif ( $entry->{popup} ) {