summaryrefslogtreecommitdiff
path: root/httemplate/view/cust_main.cgi
diff options
context:
space:
mode:
authorivan <ivan>2006-08-13 10:25:58 +0000
committerivan <ivan>2006-08-13 10:25:58 +0000
commit8e3dfb380406e145494a5fffa7a0e4aab7b38253 (patch)
treeb810048e9a0ccd6976d3927da9224a956084e1ce /httemplate/view/cust_main.cgi
parenta2bddcaabfdaf11d4b726b21af7f6ffc13c458d3 (diff)
customer view work:
DONE 1. add status and balance to top DONE 2. add some sort of oldest date thing so the history doesn't get too big (# years and a link to "show older") 3. make the rest of the action links into js popups? maybe later, weird IENess when closing em DONE (finished) - so revert out or finish/commit the Enter check payment one - Process page can wait until another day.. it should be more of an *action* DONE 4. Ticket list config knobs for wtxs (grid it too) DONE 5. grid the package list
Diffstat (limited to 'httemplate/view/cust_main.cgi')
-rwxr-xr-xhttemplate/view/cust_main.cgi19
1 files changed, 1 insertions, 18 deletions
diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi
index 89ddc38f2..8267fea51 100755
--- a/httemplate/view/cust_main.cgi
+++ b/httemplate/view/cust_main.cgi
@@ -2,24 +2,6 @@
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,
-)) %>
-
-
-<%
-
my $curuser = $FS::CurrentUser::CurrentUser;
die "No customer specified (bad URL)!" unless $cgi->keywords;
@@ -31,6 +13,7 @@ die "Customer not found!" unless $cust_main;
%>
+<%= include("/elements/header.html","Customer View: ". $cust_main->name ) %>
<% if ( $curuser->access_right('Edit customer') ) { %>
<A HREF="<%= $p %>edit/cust_main.cgi?<%= $custnum %>">Edit this customer</A> |