X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main.cgi;h=fac126f923cfc5205e76344289c57279ae599ec8;hb=8ff31f04ed1e2da3e09c56e72ab0f879d0b7ab75;hp=4975c52fd9ee290bdad3a011b2e0b05f088907df;hpb=c1bb4ddb71147d0571bd301a6d8c452fdf0e1bc9;p=freeside.git diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi index 4975c52fd..fac126f92 100755 --- a/httemplate/view/cust_main.cgi +++ b/httemplate/view/cust_main.cgi @@ -1,138 +1,273 @@ - -<% +<& /elements/header.html, { + 'title' => $title, + 'title_noescape' => $title_noescape, + 'head' => $head, + 'nobr' => 1, + } +&> -my $conf = new FS::Conf; - -my %uiview = (); -my %uiadd = (); -foreach my $part_svc ( qsearch('part_svc',{}) ) { - $uiview{$part_svc->svcpart} = $p. "view/". $part_svc->svcdb . ".cgi"; - $uiadd{$part_svc->svcpart}= $p. "edit/". $part_svc->svcdb . ".cgi"; -} - -%> - -<%= include("/elements/header.html","Customer View", menubar( - 'Main Menu' => $p, -)) %> - -<% - -die "No customer specified (bad URL)!" unless $cgi->keywords; -my($query) = $cgi->keywords; # needs parens with my, ->keywords returns array -$query =~ /^(\d+)$/; -my $custnum = $1; -my $cust_main = qsearchs('cust_main',{'custnum'=>$custnum}); -die "Customer not found!" unless $cust_main; +% my @part_tag = $cust_main->part_tag; +% if ( $conf->config('cust_tag-location') eq 'top' && @part_tag ) { +
+ tagcolor) + ? 'STYLE="background-color:#'.$part_tag->tagcolor.'"' + : '' + %>><% $part_tag->tagname.': '. $part_tag->tagdesc |h %> + | +
- <%= include('cust_main/contacts.html', $cust_main ) %>
+ <& cust_main/contacts.html, $cust_main &>
+ + <& cust_main/misc.html, $cust_main &> |
-
- <%= include('cust_main/misc.html', $cust_main ) %>
- <% if ( $conf->config('payby-default') ne 'HIDE' ) { %>
- - <%= include('cust_main/billing.html', $cust_main ) %> - <% } %> + |
+ <& cust_main/billing.html, $cust_main &>
+ + <& cust_main/cust_payby.html, $cust_main &> |
<%= encode_entities($cust_main->comments) %>+