X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main%2Fmenu.html;h=b1464b5ca11264404f56a9e44c0158ef7dbb4d29;hp=326c2f9549b7e2c9b5eb8b48571bfd73b8f51d07;hb=9b8823fca219e54ece55ebddf75d3943c8108a5e;hpb=ce99c7b3a33cf6dbafbd95cc6ff250313f830f6a
diff --git a/httemplate/view/cust_main/menu.html b/httemplate/view/cust_main/menu.html
index 326c2f954..b1464b5ca 100644
--- a/httemplate/view/cust_main/menu.html
+++ b/httemplate/view/cust_main/menu.html
@@ -1,106 +1,82 @@
-
-
-
-
+
+<& /elements/dropdown-menu.html,
+ 'id' => 'customer_menu',
+ #'class' => 'customer_submenu',
+ #XXX support installs outside /freeside in 4.x
+ 'self_url' => "/freeside/view/cust_main.cgi?custnum=$custnum;show=",
+ 'menu' => \@menu,
+ 'cust_main' => $cust_main,
+ 'show' => $opt{'show'},
+&>
<%init>
my %opt = @_;
@@ -109,9 +85,15 @@ 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;
-# nice declarative menu; should be a parameter to some kind of menu generator
+# nice declarative menu; a parameter to some kind of menu generator
my @menu = (
[
{ show => 'basics',
@@ -126,7 +108,11 @@ my @menu = (
label => 'Edit contacts',
url => "edit/cust_main-contacts.html?$custnum",
},
-# separator
+
+ { label => '-',
+ content => '-',
+ },
+
{
label => 'Bill now',
acl => 'Bill customer now',
@@ -154,7 +140,7 @@ my @menu = (
},
{
label => 'Cancel',
- popup => "misc/suspend_cust.html?custnum=$custnum",
+ popup => "misc/cancel_cust.html?custnum=$custnum",
acl => 'Cancel customer',
condition => sub { shift->ncancelled_pkgs > 0 },
actionlabel => 'Confirm Cancellation',
@@ -173,7 +159,11 @@ my @menu = (
url => "edit/cust_main.cgi?referral_custnum=$custnum",
confexists => '!disable_customer_referrals',
},
-# should have a separator here
+
+ { label => '-',
+ content => '-',
+ },
+
{
label => 'View this customer\'s referrals',
url => "search/cust_main.cgi?referral_custnum=$custnum",
@@ -189,14 +179,21 @@ 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;
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',
},
],
[
@@ -210,8 +207,8 @@ my @menu = (
actionlabel => 'Add note',
confexists => '!cust_main-disable_notes',
acl => 'Add customer note',
- width => 616,
- height => 538,
+ width => 875,
+ height => 548,
},
{
label => 'Attach file',
@@ -241,7 +238,7 @@ my @menu = (
label => 'Schedule new appointment',
confexists => 'ticket_system',
acl => 'Make appointment',
- popup => "elements/make_appointment.html?custnum=$custnum",
+ popup => "misc/make_appointment.html?custnum=$custnum",
actionlabel => 'Schedule appointment',
},
],
@@ -251,7 +248,7 @@ my @menu = (
show => 'quotations',
},
{
- label => 'Add quotation',
+ label => 'Create new quotation',
url => "edit/quotation.html?custnum=$custnum",
acl => 'Generate quotation',
},
@@ -276,17 +273,13 @@ my @menu = (
actionlabel => 'Order new package',
color => '#333399',
width => 960,
- height => 740,
+ height => 850,
acl => 'Order customer package',
},
{
# it's just a popup, but there's some freaky CCH tax stuff in it
label => 'One-time charge',
- content => sub {
- include( '/elements/one_time_charge_link.html',
- custnum => shift->custnum,
- );
- },
+ url => "edit/quick-charge.html?custnum=$custnum",
acl => 'One-time charge',
},
{
@@ -302,10 +295,14 @@ my @menu = (
url => "edit/cust_pkg.cgi?$custnum",
acl => 'Bulk change customer packages',
},
-# separator
+
+ { label => '-',
+ content => '-',
+ },
+
{
label => 'Package reports',
- url => "search/report_cust_pkg?custnum=$custnum",
+ url => "search/report_cust_pkg.html?custnum=$custnum",
},
{
label => 'View qualifications',
@@ -317,8 +314,18 @@ my @menu = (
url => "search/report_svc_acct.html?custnum=$custnum",
},
{
+ label => 'View data usage',
+ popup => "search/report_sqlradius_usage-custnum.html?$custnum",
+ acl => 'Usage: RADIUS sessions',
+ actionlabel => 'Data usage report',
+ width => 480,
+ height => 345,
+ condition => sub { shift->num_usage_pkgs > 0 },
+ },
+ {
label => 'View CDRs',
url => "search/report_cdr.html?custnum=$custnum",
+ # XXX should have a condition that the customer has any CDR packages
},
],
[
@@ -326,66 +333,87 @@ my @menu = (
label => 'Payment History',
show => 'payment_history',
},
+
# manual payment entry via edit/cust_pay
- {
- label => 'Enter check payment',
- popup => "edit/cust_pay.cgi?popup=1;payby=BILL;custnum=$custnum",
- actionlabel => 'Enter check payment',
- width => 763,
- height => 392,
- acl => [ 'Post payment', 'Post check payment' ],
- condition => sub { $payby{BILL} },
- },
- {
- label => 'Enter cash payment',
- popup => "edit/cust_pay.cgi?popup=1;payby=CASH;custnum=$custnum",
- actionlabel => 'Enter cash payment',
- width => 763,
- height => 392,
- acl => [ 'Post payment', 'Post cash payment' ],
- condition => sub { $payby{CASH} },
- },
- {
- label => 'Enter Western Union payment',
- popup => "edit/cust_pay.cgi?popup=1;payby=WEST;custnum=$custnum",
- actionlabel => 'Enter Western Union payment',
- width => 763,
- height => 392,
- acl => [ 'Post payment', ],
- condition => sub { $payby{WEST} },
- },
- {
- label => 'Post manual (offline/POS) credit card payment',
- popup => "edit/cust_pay.cgi?popup=1;payby=MCRD;custnum=$custnum",
- actionlabel => 'Enter credit card payment',
- width => 763,
- height => 392,
- acl => [ 'Post payment', ],
- condition => sub { $payby{MCRD} },
- },
- {
- label => 'Post manual (offline/POS) electronic check',
- popup => "edit/cust_pay.cgi?popup=1;payby=MCHK;custnum=$custnum",
- actionlabel => 'Enter credit card payment',
- width => 763,
- height => 392,
- acl => [ 'Post payment', ],
- condition => sub { $payby{MCHK} },
+ { label => 'Enter payment',
+ submenu => [
+ {
+ label => 'Enter check payment',
+ popup => "edit/cust_pay.cgi?popup=1;payby=BILL;custnum=$custnum",
+ actionlabel => 'Enter check payment',
+ width => 763,
+ height => 392,
+ acl => [ 'Post payment', 'Post check payment' ],
+ },
+ {
+ label => 'Enter cash payment',
+ popup => "edit/cust_pay.cgi?popup=1;payby=CASH;custnum=$custnum",
+ actionlabel => 'Enter cash payment',
+ width => 763,
+ height => 392,
+ acl => [ 'Post payment', 'Post cash payment' ],
+ },
+ #{
+ # label => 'Enter Western Union payment',
+ # popup => "edit/cust_pay.cgi?popup=1;payby=WEST;custnum=$custnum",
+ # actionlabel => 'Enter Western Union payment',
+ # width => 763,
+ # height => 392,
+ # acl => [ 'Post payment', ],
+ ## condition => sub { $payby{WEST} },
+ #},
+ #{
+ # label => 'Record manual (offline/POS) credit card payment',
+ # popup => "edit/cust_pay.cgi?popup=1;payby=MCRD;custnum=$custnum",
+ # actionlabel => 'Enter credit card payment',
+ # width => 763,
+ # height => 392,
+ # acl => [ 'Post payment', ],
+ ## condition => sub { $payby{MCRD} },
+ #},
+ #{
+ # label => 'Record manual (offline/POS) electronic check',
+ # popup => "edit/cust_pay.cgi?popup=1;payby=MCHK;custnum=$custnum",
+ # actionlabel => 'Enter credit card payment',
+ # width => 763,
+ # height => 392,
+ # 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} },
+ },
+ ],
},
+
# realtime payments via payment.cgi
- {
- label => 'Process credit card payment',
- url => "misc/payment.cgi?payby=CARD;custnum=$custnum",
- acl => [ 'Process payment', 'Process credit card payment', ],
- condition => sub { $payby{CARD} or $payby{DCRD} },
+ { label => 'Process payment',
+ submenu => [
+ {
+ label => 'Process credit card payment',
+ url => "misc/payment.cgi?payby=CARD;custnum=$custnum",
+ acl => [ 'Process payment', 'Process credit card payment', ],
+ condition => sub { $payby{CARD} or $payby{DCRD} },
+ },
+ {
+ label => 'Process electronic check payment',
+ url => "misc/payment.cgi?payby=CHEK;custnum=$custnum",
+ acl => [ 'Process payment', 'Process Echeck payment', ],
+ condition => sub { $payby{CHEK} or $payby{DCHK} },
+ },
+ ],
},
- {
- label => 'Process electronic check payment',
- url => "misc/payment.cgi?payby=CHEK;custnum=$custnum",
- acl => [ 'Process payment', 'Process Echeck payment', ],
- condition => sub { $payby{CHEK} or $payby{DCHK} },
+
+ { label => '-',
+ content => '-',
},
-#separator?
+
{
label => 'Enter credit',
popup => "edit/cust_credit.cgi?custnum=$custnum",
@@ -404,38 +432,63 @@ my @menu = (
FS::cust_bill->count('custnum = ?', shift->custnum) > 0
},
},
- {
- label => 'Enter check refund',
- popup => "edit/cust_refund.cgi?popup=1;payby=BILL;custnum=$custnum",
- actionlabel => 'Enter check refund',
- width => 440,
- acl => ['Post refund', 'Post check refund'],
- condition => sub { $payby{BILL} },
- },
- {
- label => 'Enter cash refund',
- popup => "edit/cust_refund.cgi?popup=1;payby=CASH;custnum=$custnum",
- actionlabel => 'Enter cash refund',
- width => 392,
- acl => ['Post refund', 'Post cash refund'],
- condition => sub { $payby{CASH} },
+
+ { label => '-',
+ content => '-',
},
- {
- label => 'Enter manual (offline/POS) credit card refund',
- popup => "edit/cust_refund.cgi?popup=1;payby=MCRD;custnum=$custnum",
- actionlabel => 'Enter credit card refund',
- width => 440,
- acl => ['Post refund' ],
- condition => sub { $payby{MCRD} },
+
+ { label => 'Enter refund',
+ submenu => [
+
+ {
+ label => 'Enter check refund',
+ popup => "edit/cust_refund.cgi?popup=1;payby=BILL;custnum=$custnum",
+ actionlabel => 'Enter check refund',
+ width => 440,
+ acl => ['Post refund', 'Post check refund'],
+ },
+ {
+ label => 'Enter cash refund',
+ popup => "edit/cust_refund.cgi?popup=1;payby=CASH;custnum=$custnum",
+ actionlabel => 'Enter cash refund',
+ width => 392,
+ acl => ['Post refund', 'Post cash refund'],
+ },
+ #{
+ # label => 'Record manual (offline/POS) credit card refund',
+ # popup => "edit/cust_refund.cgi?popup=1;payby=MCRD;custnum=$custnum",
+ # actionlabel => 'Enter credit card refund',
+ # width => 440,
+ # acl => ['Post refund' ],
+ ## condition => sub { $payby{MCRD} },
+ #},
+ #{
+ # label => 'Record manual (offline/POS) electronic check refund',
+ # popup => "edit/cust_refund.cgi?popup=1;payby=MCHK;custnum=$custnum",
+ # actionlabel => 'Enter electronic check refund',
+ # width => 440,
+ # 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
+ },
+ },
+
+ ],
+
},
- {
- label => 'Enter manual (offline/POS) electronic check refund',
- popup => "edit/cust_refund.cgi?popup=1;payby=MCHK;custnum=$custnum",
- actionlabel => 'Enter electronic check refund',
- width => 440,
- acl => ['Post refund' ],
- condition => sub { $payby{MCHK} },
+
+ { label => '-',
+ content => '-',
},
+
{
label => 'Add tax adjustment',
popup => "edit/cust_tax_adjustment.html?custnum=$custnum",
@@ -444,11 +497,29 @@ my @menu = (
confexists => 'enable_tax_adjustments',
acl => 'Add customer tax adjustment',
},
-# separator, definitely
+
+ { label => '-',
+ content => '-',
+ confexists => 'enable_tax_adjustments',
+ acl => 'Add customer tax adjustment',
+ },
+
{
- label => 'Download statement',
+ 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',
+ },
+ {
+ 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 +548,7 @@ my @menu = (
FS::cust_pay_pending->count('custnum = ?', shift->custnum) > 0
},
},
+
],
[
{
@@ -487,83 +559,4 @@ my @menu = (
],
);
-
-my @processed_menu;
-foreach my $submenu (@menu) {
-
- my @links;
- my $first = 1;
- foreach my $entry ( @$submenu ) {
- # if the menu head was skipped, skip the whole menu
- last if (!$first and !@links);
- $first = 0;
-
- # check conditions
- if ( $entry->{acl} ) {
- next unless $curuser->access_right( $entry->{acl} );
- }
- if ( $entry->{confexists} ) {
- if ( $entry->{confexists} =~ /^!(.*)/ ) {
- # confexists => !foo, a negative condition
- next if $conf->exists( $1 );
- } else {
- next unless $conf->exists( $entry->{confexists} );
- }
- }
- if ( $entry->{condition} ) {
- next unless &{ $entry->{condition} }($cust_main);
- }
-
- my $label = emt($entry->{label});
- my $target = $entry->{content}
- || $entry->{popup}
- || $entry->{url};
-
- if ( ref($target) eq 'CODE' ) {
- $target = &$target($cust_main);
- }
- my $a = '';
-
- if ( $entry->{content} ) { # then the coderef specified the whole thing
- $a = $target;
-
- } elsif ( $entry->{show} ) {
-
- # the menu head: always a link back to this page
- $cgi->param('show', $entry->{show});
- $target = $cgi->self_url;
-
- $a = qq[ {show} ) {
- $a .= ' class="current_show"';
- }
- $a .= qq[>$label ];
-
-
- } elsif ( $entry->{popup} ) {
-
- $target =~ s/\$custnum/$custnum/g;
- $target = $p.$target;
- $a = include('/elements/popup_link.html',
- action => $target,
- width => 616,
- height => 410,
- %$entry,
- label => emt($label),
- );
-
- } elsif ( $entry->{url} ) {
-
- $target =~ s/\$custnum/$custnum/g;
- $target = $p.$target;
- $a = qq[ $label ];
- }
-
- push @links, $a;
-
- } # foreach $entry
- if (@links) {
- push @processed_menu, \@links;
- }
-}