From c82d349f864e6bd9f96fd1156903bc1f7193a203 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Mon, 27 Dec 2010 00:04:45 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'. --- httemplate/index.html | 56 --------------------------------------------------- 1 file changed, 56 deletions(-) delete mode 100644 httemplate/index.html (limited to 'httemplate/index.html') diff --git a/httemplate/index.html b/httemplate/index.html deleted file mode 100644 index 5b550dba7..000000000 --- a/httemplate/index.html +++ /dev/null @@ -1,56 +0,0 @@ -% my $conf = new FS::Conf; - -<% include('/elements/header.html', 'Billing Main' ) %> - -<% include('/elements/dashboard-install_welcome.html') %> - -<% include('/elements/dashboard-toplist.html') %> - -% 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 ) -% WHERE ( history_action = 'insert' OR history_action = 'replace_new' ) -% AND history_user = ? -% ORDER BY history_date desc" # LIMIT 10 -% ) or die dbh->errstr; -% -% $sth->execute( getotaker() ) or die $sth->errstr; -% -% my %saw = (); -% my @custnums = grep { !$saw{$_}++ } map $_->[0], @{ $sth->fetchall_arrayref }; -% -% @custnums = splice(@custnums, 0, 10); -% -% if ( @custnums ) { - - <% include('/elements/table-grid.html') %> - -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = $bgcolor2; - - - Customers I recently added or modified - - -% foreach my $custnum ( @custnums ) { -% my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); -% next unless $cust_main; - - - <% $cust_main->display_custnum %>: <% $cust_main->name %> - - -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } -% -% } - - - -% } - -<% include('/elements/footer.html') %> -- cgit v1.2.1