httemplate/view/cust_main/menu.html

   1 <style type="text/css">
   2 #menu_ul {
   3   padding: 0;
   4   margin: .5em 0 0 0;
   5   font-size: smaller;
   6 }
   7
   8 #menu_ul li {
   9   margin: 0;
  10   float: left;
  11   list-style: none;
  12   position: relative;
  13 }
  14
  15 #menu_ul a {
  16   display: block;
  17   margin: 0;
  18   padding: .5em .75em;
  19   background: #ffffff;
  20   color: #525151;
  21   white-space: nowrap;
  22   text-decoration: none;
  23   border-top: thin solid #CFDEFF;
  24 }
  25
  26 #menu_ul a.current_show {
  27   font-weight: bold;
  28   background: #cfdeff;
  29 }
  30
  31 #menu_ul ul {
  32   margin:0;
  33   padding:0;
  34   display:none;
  35   position: absolute;
  36   top: 100%;
  37   left: 0;
  38   background: #ffffff;
  39   border-bottom: thin solid #CFDEFF;
  40 }
  41
  42 #menu_ul ul li {
  43   margin: 0;
  44   padding: 0;
  45   float: none;
  46 }
  47
  48 #menu_ul ul a {
  49   border-top: thin solid #CFDEFF;
  50   color: #333333;
  51   background: transparent;
  52 }
  53
  54 #menu_ul a:hover {
  55   background: #cfdeff;
  56   text-decoration: underline;
  57   color: #7e0079;
  58 }
  59
  60 </style>
  61 <script src="<% $p %>elements/jquery.js"></script>
  62 <script type="text/javascript">
  63
  64 $(document).ready(function() {
  65         var openmenu;
  66         function closemenu () {
  67                 if (openmenu !== undefined) {
  68                         openmenu.hide();
  69                         openmenu = undefined;
  70                 }
  71         }
  72         $('#menu_ul > li').hover(function(){
  73                 closemenu();
  74                 openmenu = $('ul:first', this);
  75                 openmenu.show();
  76         }, function(){
  77                 closemenu();
  78         });
  79 });
  80 </script>
  81
  82 <ul id="menu_ul">
  83 % foreach my $submenu (@processed_menu) {
  84   <li>
  85     <% shift @$submenu %>
  86     <ul>
  87 %   foreach my $link ( @$submenu ) {
  88       <li><% $link %></li>
  89 %   }
  90     </ul>
  91   </li>
  92 % }
  93 </ul>
  94
  95 <%init>
  96 my %opt = @_;
  97 my $cust_main = $opt{'cust_main'};
  98 my $custnum = $cust_main->custnum;
  99 my $curuser = $FS::CurrentUser::CurrentUser;
 100 my $conf = FS::Conf->new;
 101
 102 my %payby = map { $_ => 1 } $conf->config('payby');
 103
 104 # nice declarative menu; should be a parameter to some kind of menu generator
 105 my @menu = (
 106   [
 107     { show        => 'basics',
 108       label       => 'Basics',
 109     },
 110     {
 111       label       => 'Edit customer',
 112       url         => "edit/cust_main.cgi?$custnum",
 113       acl         => 'Edit customer'
 114     },
 115     {
 116       label       => 'Edit contacts',
 117       url         => "edit/cust_main-contacts.html?$custnum",
 118     },
 119 # separator
 120     {
 121       label       => 'Bill now',
 122       acl         => 'Bill customer now',
 123       content     => sub { include( '/elements/bill.html',
 124                               label   => emt('Bill now'),
 125                               url     => $cgi->self_url,
 126                               custnum => shift->custnum,
 127                            ),
 128                      },
 129     },
 130     {
 131       label       => 'Suspend',
 132       popup       => "misc/suspend_cust.html?custnum=$custnum",
 133       acl         => 'Suspend customer',
 134       condition   => sub { shift->unsuspended_pkgs > 0 },
 135       actionlabel => 'Confirm Suspension',
 136       color       => '#ff9900',
 137     },
 138     {
 139       label       => 'Unsuspend',
 140       popup       => "misc/unsuspend_cust.html?custnum=$custnum",
 141       acl         => 'Unsuspend customer',
 142       condition   => sub { shift->suspended_pkgs > 0 },
 143       actionlabel => 'Confirm Unsuspension',
 144     },
 145     {
 146       label       => 'Cancel',
 147       popup       => "misc/suspend_cust.html?custnum=$custnum",
 148       acl         => 'Cancel customer',
 149       condition   => sub { shift->ncancelled_pkgs > 0 },
 150       actionlabel => 'Confirm Cancellation',
 151       color       => '#ff0000',
 152     },
 153     {
 154       label       => 'Merge',
 155       popup       => "misc/merge_cust.html?custnum=$custnum",
 156       acl         => 'Merge customer',
 157       actionlabel => 'Merge customer',
 158       width       => 569,
 159       height      => 210,
 160     },
 161     {
 162       label       => 'Refer a new customer',
 163       url         => "edit/cust_main.cgi?referral_custnum=$custnum",
 164       confexists  => '!disable_customer_referrals',
 165     },
 166 # should have a separator here
 167     {
 168       label       => 'View this customer\'s referrals',
 169       url         => "search/cust_main.cgi?referral_custnum=$custnum",
 170       confexists  => '!disable_customer_referrals',
 171       condition   => sub {
 172         FS::cust_main->count('referral_custnum = ?', shift->custnum) > 0
 173       },
 174     },
 175     {
 176       label       => 'View billing events',
 177       url         => "search/cust_event.html?custnum=$custnum",
 178       acl         => [ 'Billing event reports',
 179                        'View customer billing events' ],
 180     },
 181     {
 182       label       => 'Email a notice to this customer',
 183       url         => sub {
 184                       my $cust_main = shift;
 185                       my $agentnum = $cust_main->agentnum;
 186                       'misc/email-customers.html?table=cust_main;search_hash='.
 187                       'agent_virt_agentnum='.$agentnum.";custnum=$custnum";
 188                      },
 189       condition   => sub { shift->invoicing_list_emailonly },
 190     },
 191   ],
 192   [
 193     {
 194       label => 'Notes',
 195       show  => 'notes',
 196     },
 197     {
 198       label       => 'Add note',
 199       popup       => "edit/cust_main_note.cgi?custnum=$custnum",
 200       actionlabel => 'Add note',
 201       confexists  => '!cust_main-disable_notes',
 202       acl         => 'Add customer note',
 203       width       => 616,
 204       height      => 538,
 205     },
 206     {
 207       label       => 'Attach file',
 208       popup       => "edit/cust_main_attach.cgi?custnum=$custnum",
 209       actionlabel => 'Upload file',
 210       confexists  => '!disable_cust_attachment',
 211       acl         => 'Add attachment',
 212       width       => 480,
 213       height      => 296,
 214     },
 215   ],
 216   [
 217     {
 218       label => 'Tickets',
 219       show  => 'tickets',
 220       confexists => 'ticket_system'
 221     },
 222   ],
 223   [
 224     {
 225       label => 'Appointments',
 226       show  => 'appointments',
 227       confexists => 'ticket_system',
 228       acl   => 'View appointments',
 229     },
 230     {
 231       label       => 'Schedule new appointment',
 232       confexists  => 'ticket_system',
 233       acl        => 'Make appointment',
 234       popup       => "elements/make_appointment.html?custnum=$custnum",
 235       actionlabel => 'Schedule appointment',
 236     },
 237   ],
 238   [
 239     {
 240       label => 'Quotations',
 241       show  => 'quotations',
 242     },
 243     {
 244       label => 'Add quotation',
 245       url   => "edit/quotation.html?custnum=$custnum",
 246       acl   => 'Generate quotation',
 247     },
 248   ],
 249   [
 250     {
 251       label => 'Packages',
 252       show  => 'packages',
 253     },
 254     {
 255       label       => 'New qualification',
 256       popup       => "misc/qual.html?custnum=$custnum",
 257       actionlabel => 'New qualification',
 258       color       => '#333399',
 259       width       => 763,
 260       height      => 436,
 261       acl         => 'Qualify service',
 262     },
 263     {
 264       label       => 'Order new package',
 265       popup       => "misc/order_pkg.html?custnum=$custnum",
 266       actionlabel => 'Order new package',
 267       color       => '#333399',
 268       width       => 960,
 269       height      => 740,
 270       acl         => 'Order customer package',
 271     },
 272     {
 273       # it's just a popup, but there's some freaky CCH tax stuff in it
 274       label       => 'One-time charge',
 275       content     => sub {
 276                       include( '/elements/one_time_charge_link.html',
 277                         custnum => shift->custnum,
 278                       );
 279                      },
 280       acl         => 'One-time charge',
 281     },
 282     {
 283       label       => 'Move services between packages',
 284       popup       => "edit/bulk-cust_svc-pkgnum.html?custnum=$custnum",
 285       actionlabel => 'Move services',
 286       width       => 968,
 287       height      => 575,
 288       acl         => 'Bulk move customer services',
 289     },
 290     {
 291       label       => 'Bulk order and cancel packages',
 292       url         => "edit/cust_pkg.cgi?$custnum",
 293       acl         => 'Bulk change customer packages',
 294     },
 295 # separator
 296     {
 297       label => 'Package reports',
 298       url   => "search/report_cust_pkg?custnum=$custnum",
 299     },
 300     {
 301       label => 'View qualifications',
 302       url   => "search/qual.cgi?custnum=$custnum",
 303       acl   => 'Qualify service',
 304     },
 305     {
 306       label => 'View accounts',
 307       url   => "search/report_svc_acct.html?custnum=$custnum",
 308     },
 309     {
 310       label => 'View CDRs',
 311       url   => "search/report_cdr.html?custnum=$custnum",
 312     },
 313   ],
 314   [
 315     {
 316       label => 'Payment History',
 317       show  => 'payment_history',
 318     },
 319     # manual payment entry via edit/cust_pay
 320     {
 321       label       => 'Enter check payment',
 322       popup       => "edit/cust_pay.cgi?popup=1;payby=BILL;custnum=$custnum",
 323       actionlabel => 'Enter check payment',
 324       width       => 763,
 325       height      => 392,
 326       acl         => [ 'Post payment', 'Post check payment' ],
 327       condition   => sub { $payby{BILL} },
 328     },
 329     {
 330       label       => 'Enter cash payment',
 331       popup       => "edit/cust_pay.cgi?popup=1;payby=CASH;custnum=$custnum",
 332       actionlabel => 'Enter cash payment',
 333       width       => 763,
 334       height      => 392,
 335       acl         => [ 'Post payment', 'Post cash payment' ],
 336       condition   => sub { $payby{CASH} },
 337     },
 338     {
 339       label       => 'Enter Western Union payment',
 340       popup       => "edit/cust_pay.cgi?popup=1;payby=WEST;custnum=$custnum",
 341       actionlabel => 'Enter Western Union payment',
 342       width       => 763,
 343       height      => 392,
 344       acl         => [ 'Post payment', ],
 345       condition   => sub { $payby{WEST} },
 346     },
 347     {
 348       label       => 'Post manual (offline/POS) credit card payment',
 349       popup       => "edit/cust_pay.cgi?popup=1;payby=MCRD;custnum=$custnum",
 350       actionlabel => 'Enter credit card payment',
 351       width       => 763,
 352       height      => 392,
 353       acl         => [ 'Post payment', ],
 354       condition   => sub { $payby{MCRD} },
 355     },
 356     {
 357       label       => 'Post manual (offline/POS) electronic check',
 358       popup       => "edit/cust_pay.cgi?popup=1;payby=MCHK;custnum=$custnum",
 359       actionlabel => 'Enter credit card payment',
 360       width       => 763,
 361       height      => 392,
 362       acl         => [ 'Post payment', ],
 363       condition   => sub { $payby{MCHK} },
 364     },
 365     # realtime payments via payment.cgi
 366     {
 367       label       => 'Process credit card payment',
 368       url         => "misc/payment.cgi?payby=CARD;custnum=$custnum",
 369       acl         => [ 'Process payment', 'Process credit card payment', ],
 370       condition   => sub { $payby{CARD} or $payby{DCRD} },
 371     },
 372     {
 373       label       => 'Process electronic check payment',
 374       url         => "misc/payment.cgi?payby=CHEK;custnum=$custnum",
 375       acl         => [ 'Process payment', 'Process Echeck payment', ],
 376       condition   => sub { $payby{CHEK} or $payby{DCHK} },
 377     },
 378 #separator?
 379     {
 380       label       => 'Enter credit',
 381       popup       => "edit/cust_credit.cgi?custnum=$custnum",
 382       actionlabel => 'Enter credit',
 383       width       => 763,
 384       acl         => 'Post credit',
 385     },
 386     {
 387       label       => 'Credit line items',
 388       popup       => "edit/credit-cust_bill_pkg.html?custnum=$custnum",
 389       actionlabel => 'Credit line items',
 390       width       => 968,
 391       height      => 575,
 392       acl         => 'Credit line items',
 393       condition   => sub {
 394         FS::cust_bill->count('custnum = ?', shift->custnum) > 0
 395       },
 396     },
 397     {
 398       label       => 'Enter check refund',
 399       popup       => "edit/cust_refund.cgi?popup=1;payby=BILL;custnum=$custnum",
 400       actionlabel => 'Enter check refund',
 401       width       => 440,
 402       acl         => ['Post refund', 'Post check refund'],
 403       condition   => sub { $payby{BILL} },
 404     },
 405     {
 406       label       => 'Enter cash refund',
 407       popup       => "edit/cust_refund.cgi?popup=1;payby=CASH;custnum=$custnum",
 408       actionlabel => 'Enter cash refund',
 409       width       => 392,
 410       acl         => ['Post refund', 'Post cash refund'],
 411       condition   => sub { $payby{CASH} },
 412     },
 413     {
 414       label       => 'Enter manual (offline/POS) credit card refund',
 415       popup       => "edit/cust_refund.cgi?popup=1;payby=MCRD;custnum=$custnum",
 416       actionlabel => 'Enter credit card refund',
 417       width       => 440,
 418       acl         => ['Post refund' ],
 419       condition   => sub { $payby{MCRD} },
 420     },
 421     {
 422       label       => 'Enter manual (offline/POS) electronic check refund',
 423       popup       => "edit/cust_refund.cgi?popup=1;payby=MCHK;custnum=$custnum",
 424       actionlabel => 'Enter electronic check refund',
 425       width       => 440,
 426       acl         => ['Post refund' ],
 427       condition   => sub { $payby{MCHK} },
 428     },
 429     {
 430       label       => 'Add tax adjustment',
 431       popup       => "edit/cust_tax_adjustment.html?custnum=$custnum",
 432       actionlabel => 'Add tax adjustment',
 433       height      => 200,
 434       confexists  => 'enable_tax_adjustments',
 435       acl         => 'Add customer tax adjustment',
 436     },
 437 # separator, definitely
 438     {
 439       label       => 'Download statement',
 440       url         => "view/cust_main_statement-pdf.cgi?$custnum",
 441       acl         => 'List invoices',
 442       condition   => sub {
 443         FS::cust_bill->count('custnum = ?', shift->custnum) > 0
 444       },
 445     },
 446     {
 447       label       => 'Search invoices',
 448       url         => "search/report_cust_bill.html?custnum=$custnum",
 449       acl         => 'List invoices',
 450     },
 451     {
 452       label       => 'View tax exemptions',
 453       url         => "search/cust_tax_exempt_pkg.cgi?custnum=$custnum",
 454       acl         => 'View customer tax exemptions',
 455     },
 456     {
 457       label       => 'View tax adjustments',
 458       url         => "search/cust_tax_adjustment.html?custnum=$custnum",
 459       confexists  => 'enable_tax_adjustments',
 460       acl         => 'Add customer tax adjustment',
 461     },
 462     {
 463       label       => 'View pending payments',
 464       url         => "search/cust_pay_pending.html?magic=_date;statusNOT=done;custnum=$custnum",
 465       acl         => 'View pending payments',
 466       condition   => sub {
 467         FS::cust_pay_pending->count('custnum = ?', shift->custnum) > 0
 468       },
 469     },
 470   ],
 471   [
 472     {
 473       label => 'Change History',
 474       show  => 'change_history',
 475       acl   => 'View customer history',
 476     },
 477   ],
 478 );
 479
 480
 481 my @processed_menu;
 482 foreach my $submenu (@menu) {
 483
 484   my @links;
 485   my $first = 1;
 486   foreach my $entry ( @$submenu ) {
 487     # if the menu head was skipped, skip the whole menu
 488     last if (!$first and !@links);
 489     $first = 0;
 490
 491     # check conditions
 492     if ( $entry->{acl} ) {
 493       next unless $curuser->access_right( $entry->{acl} );
 494     }
 495     if ( $entry->{confexists} ) {
 496       if ( $entry->{confexists} =~ /^!(.*)/ ) {
 497         # confexists => !foo, a negative condition
 498         next if $conf->exists( $1 );
 499       } else {
 500         next unless $conf->exists( $entry->{confexists} );
 501       }
 502     }
 503     if ( $entry->{condition} ) {
 504       next unless &{ $entry->{condition} }($cust_main);
 505     }
 506
 507     my $label = emt($entry->{label});
 508     my $target = $entry->{content}
 509               || $entry->{popup}
 510               || $entry->{url};
 511
 512     if ( ref($target) eq 'CODE' ) {
 513       $target = &$target($cust_main);
 514     }
 515     my $a = '';
 516
 517     if ( $entry->{content} ) { # then the coderef specified the whole thing
 518       $a = $target;
 519
 520     } elsif ( $entry->{show} ) {
 521
 522       # the menu head: always a link back to this page
 523       $cgi->param('show', $entry->{show});
 524             $target = $cgi->self_url;
 525
 526       $a = qq[ <A HREF="$target"];
 527       if ( $opt{'show'} eq $entry->{show} ) {
 528         $a .= ' class="current_show"';
 529       }
 530       $a .= qq[>$label</A> ];
 531
 532
 533     } elsif ( $entry->{popup} ) {
 534
 535       $target =~ s/\$custnum/$custnum/g;
 536       $target = $p.$target;
 537       $a = include('/elements/popup_link.html',
 538         action  => $target,
 539         width   => 616,
 540         height  => 410,
 541         %$entry,
 542         label   => emt($label),
 543       );
 544
 545     } elsif ( $entry->{url} ) {
 546
 547       $target =~ s/\$custnum/$custnum/g;
 548       $target = $p.$target;
 549       $a = qq[ <A HREF="$target">$label</A> ];
 550     }
 551
 552     push @links, $a;
 553
 554   } # foreach $entry
 555   if (@links) {
 556     push @processed_menu, \@links;
 557   }
 558 }
 559 </%init>