X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main%2Fmenu.html;h=7b8f68a8cb0f12dd9bd3bfb259abdb512bb56fde;hp=7c7303bc9ab3faceb4acbc4d585c2b7a4adb8253;hb=e61046ea9f0efc021d568bbda0f7759ad51881d3;hpb=1aecd5bf33146bf3f374341a3814960ae1d419e8 diff --git a/httemplate/view/cust_main/menu.html b/httemplate/view/cust_main/menu.html index 7c7303bc9..7b8f68a8c 100644 --- a/httemplate/view/cust_main/menu.html +++ b/httemplate/view/cust_main/menu.html @@ -1,32 +1,22 @@ - - - - +<& /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 = @_; @@ -175,7 +96,7 @@ 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 +# nice declarative menu; a parameter to some kind of menu generator my @menu = ( [ { show => 'basics', @@ -396,7 +317,8 @@ my @menu = ( acl => 'Usage: RADIUS sessions', actionlabel => 'Data usage report', width => 480, - height => 245, + height => 345, + condition => sub { shift->num_usage_pkgs > 0 }, }, { label => 'View CDRs', @@ -616,108 +538,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; - - my $a = entry2link($entry, $cust_main, $opt{show}); - push @links, $a if length($a); - - } # foreach $entry - - if (@links) { - push @processed_menu, \@links; - } - -} - -sub entry2link { - my( $entry, $cust_main, $show ) = @_; - - # check conditions - if ( $entry->{acl} ) { - return '' - unless $FS::CurrentUser::CurrentUser->access_right( $entry->{acl} ); - } - if ( $entry->{confexists} ) { - if ( $entry->{confexists} =~ /^!(.*)/ ) { - # confexists => !foo, a negative condition - return '' if FS::Conf->new->exists( $1 ); - } else { - return '' unless FS::Conf->new->exists( $entry->{confexists} ); - } - } - if ( $entry->{condition} ) { - return '' unless &{ $entry->{condition} }($cust_main); - } - - my $label = emt($entry->{label}); - - if ( $entry->{submenu} ) { - - my $a = ''. $label. - ''. - ''; - - } - - my $target = $entry->{content} - || $entry->{popup} - || $entry->{url}; - - if ( ref($target) eq 'CODE' ) { - $target = &$target($cust_main); - } - - return $target if $entry->{content}; #the coderef specified the whole thing - - if ( $entry->{show} ) { - - # the menu head: always a link back to this page - $cgi->param('show', $entry->{show}); - $target = $cgi->self_url; - $cgi->param('show', $show); - - my $a = qq[ {show}; - return $a. qq[>$label ]; - - } elsif ( $entry->{popup} ) { - - $target =~ s/\$custnum/$custnum/g; - $target = $p.$target; - - return include('/elements/popup_link.html', - action => $target, - width => 616, - height => 410, - %$entry, - label => $label, - ); - - } elsif ( $entry->{url} ) { - - $target =~ s/\$custnum/$custnum/g; - $target = $p.$target; - - return qq[ $label ]; - - } else { - die "bad entry ". join(',',%$entry). " in menu: no url, popup or content"; - } - -} -