</style>
-<& /elements/one_time_charge_link.html, form_only=>1 &>
-
<ul id="customer_menu">
% foreach my $submenu (@processed_menu) {
<li>
},
{
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',
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',
},
],
{
# 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,
- no_form => 1,
- );
- },
+ url => "edit/quick-charge.html?custnum=$custnum",
acl => 'One-time charge',
},
{
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
},
],
[
# the menu head: always a link back to this page
$cgi->param('show', $entry->{show});
- $target = $cgi->self_url;
+
+ #$target = $cgi->self_url;
+ #XXX support installs outside /freeside in 4.x
+ $target = "/freeside/view/cust_main.cgi?show=$show;custnum=". $cust_main->custnum;
+
$cgi->param('show', $show);
my $a = qq[ <A HREF="$target"];