projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
clarify edit link, #24723
[freeside.git]
/
httemplate
/
index.html
diff --git
a/httemplate/index.html
b/httemplate/index.html
index
5b550db
..
d563fa0
100644
(file)
--- a/
httemplate/index.html
+++ b/
httemplate/index.html
@@
-1,11
+1,18
@@
-% my $conf = new FS::Conf;
-
-<% include('/elements/header.html', 'Billing Main' ) %>
+<%init>my $debug = $cgi->param('debug');</%init>
+% warn time.": header.html\n" if $debug;
+%
+<& /elements/header.html, mt('Billing Main') &>
-<% include('/elements/dashboard-install_welcome.html') %>
+% warn time.": dashboard-install_welcome.html\n" if $debug;
+%
+<& /elements/dashboard-install_welcome.html &>
-<% include('/elements/dashboard-toplist.html') %>
+% warn time.": dashboard-toplist.html\n" if $debug;
+%
+<& /elements/dashboard-toplist.html &>
+% warn time.": fetching recently changed customers\n" if $debug;
+%
% my $sth = dbh->prepare(
% #"SELECT DISTINCT custnum FROM h_cust_main JOIN cust_main USING ( custnum )
% "SELECT custnum FROM h_cust_main JOIN cust_main USING ( custnum )
% my $sth = dbh->prepare(
% #"SELECT DISTINCT custnum FROM h_cust_main JOIN cust_main USING ( custnum )
% "SELECT custnum FROM h_cust_main JOIN cust_main USING ( custnum )
@@
-14,7
+21,7
@@
% ORDER BY history_date desc" # LIMIT 10
% ) or die dbh->errstr;
%
% ORDER BY history_date desc" # LIMIT 10
% ) or die dbh->errstr;
%
-% $sth->execute(
getotaker()
) or die $sth->errstr;
+% $sth->execute(
$FS::CurrentUser::CurrentUser->username
) or die $sth->errstr;
%
% my %saw = ();
% my @custnums = grep { !$saw{$_}++ } map $_->[0], @{ $sth->fetchall_arrayref };
%
% my %saw = ();
% my @custnums = grep { !$saw{$_}++ } map $_->[0], @{ $sth->fetchall_arrayref };
@@
-22,15
+29,16
@@
% @custnums = splice(@custnums, 0, 10);
%
% if ( @custnums ) {
% @custnums = splice(@custnums, 0, 10);
%
% if ( @custnums ) {
+% warn time.": displaying recently changed customers\n" if $debug;
- <
% include('/elements/table-grid.html') %
>
+ <
& /elements/table-grid.html &
>
% my $bgcolor1 = '#eeeeee';
% my $bgcolor2 = '#ffffff';
% my $bgcolor = $bgcolor2;
<TR>
% my $bgcolor1 = '#eeeeee';
% my $bgcolor2 = '#ffffff';
% my $bgcolor = $bgcolor2;
<TR>
- <TH CLASS="grid" BGCOLOR="#cccccc" COLSPAN=1>
Customers I recently added or modified
</TH>
+ <TH CLASS="grid" BGCOLOR="#cccccc" COLSPAN=1>
<% mt('Customers I recently added or modified') |h %>
</TH>
</TR>
% foreach my $custnum ( @custnums ) {
</TR>
% foreach my $custnum ( @custnums ) {
@@
-38,7
+46,7
@@
% next unless $cust_main;
<TR>
% next unless $cust_main;
<TR>
- <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"><A HREF="view/cust_main.cgi?<% $custnum %>"><% $cust_main->display_custnum %>: <% $cust_main->name %></A></TD>
+ <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"><A HREF="view/cust_main.cgi?<% $custnum %>"><% $cust_main->display_custnum %>: <% $cust_main->name
|h
%></A></TD>
</TR>
% if ( $bgcolor eq $bgcolor1 ) {
</TR>
% if ( $bgcolor eq $bgcolor1 ) {
@@
-53,4
+61,4
@@
% }
% }
-<
% include('/elements/footer.html') %
>
+<
& /elements/footer.html &
>