X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main.cgi;h=c5ee9203c5535825e58112c88ed8abe9c64f3e4b;hp=58f2925d594d75dfa400068e9aab3bea8f3f4821;hb=f822e27a1e00594332ffa487a1c284234c5580a6;hpb=7bdf17a005cf4c0fe8b6b6ad1ce97abaa52a4510 diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi index 58f2925d5..c5ee9203c 100755 --- a/httemplate/view/cust_main.cgi +++ b/httemplate/view/cust_main.cgi @@ -1,139 +1,282 @@ - -<% +<& /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", - include("/elements/menubar.html", - '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) %>+