From e631aea6e8c9dbc41192948468314afd7b806613 Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 22 May 2006 00:45:37 +0000 Subject: [PATCH] 1.7.0? why not! --- httemplate/elements/menu.html | 19 +++---- httemplate/index.html | 117 ++++++++++++++++++++---------------------- 2 files changed, 65 insertions(+), 71 deletions(-) diff --git a/httemplate/elements/menu.html b/httemplate/elements/menu.html index 8502c0746..29ef53575 100644 --- a/httemplate/elements/menu.html +++ b/httemplate/elements/menu.html @@ -121,6 +121,7 @@ #
--> tie my %tools_menu, 'Tie::IxHash', + 'Quick payment entry' => [ $fsurl.'misc/batch-cust_pay.html', 'Enter multiple payments in a batch' ], 'Job Queue' => [ $fsurl.'search/queue.html', 'View pending job queue' ], 'Importing' => [ \%tools_importing, 'Import tools' ], 'Exporting' => [ \%tools_exporting, 'Export tools' ], @@ -168,17 +169,17 @@ ; tie my %config_menu, 'Tie::IxHash', - 'Settings' => [ $fsurl.'config/config-view.cgi', 'XXXconfigittip' ], + 'Settings' => [ $fsurl.'config/config-view.cgi', '' ], 'separator' => '', #its a separator! - 'Employees' => [ \%config_employees, 'XXXtooltip' ], + 'Employees' => [ \%config_employees, '' ], 'Provisioning, services and packages' - => [ \%config_export_svc_pkg, 'XXXtootip' ], - 'Resellers' => [ \%config_agent, 'XXXtootip' ], - 'Billing' => [ \%config_billing, 'XXXtootip' ], - 'Dialup' => [ \%config_dialup, 'XXXtootip' ], + => [ \%config_export_svc_pkg, '' ], + 'Resellers' => [ \%config_agent, '' ], + 'Billing' => [ \%config_billing, '' ], + 'Dialup' => [ \%config_dialup, '' ], 'Fixed (username-less) broadband' - => [ \%config_broadband, 'XXXtootip' ], - 'Miscellaneous' => [ \%config_misc, 'XXXtootip' ], + => [ \%config_broadband, '' ], + 'Miscellaneous' => [ \%config_misc, '' ], ; tie my %menu, 'Tie::IxHash', @@ -253,7 +254,7 @@ webfxMenuImagePath = "<%=$fsurl%>images/"; webfxMenuUseHover = 1; webfxMenuShowTime = 300; - webfxMenuHideTime = 500; + webfxMenuHideTime = 300; var myBar = new WebFXMenuBar; diff --git a/httemplate/index.html b/httemplate/index.html index 95d4580bd..1a92b45f6 100644 --- a/httemplate/index.html +++ b/httemplate/index.html @@ -1,66 +1,59 @@ <% my $conf = new FS::Conf; %> -<%= include('/elements/header.html', 'Freeside Main Menu' ) %> - -
- -[ Sales / Customer service ] -[ Bookkeeping / Collections ] -[ Reports ] - - - -
Sales / Customer service
-
Username
-
Domain
-
IP Address
-
-
- -


- - -[ Sales / Customer service ] -[ Bookkeeping / Collections ] -[ Reports ] - - - -
Bookkeeping / Collections
-
Quick payment entry -
-
Credit card #
-
Invoice #
-
Check #
-
- Invoice event reports - -

-
- - - -


- - - -[ Sales / Customer service ] -[ Bookkeeping / Collections ] -[ Reports ] - - - -
Reports
-
- RADIUS sessions

-
SQL query: SELECT
- -
-
- -


+<%= include('/elements/header.html', 'Billing Main' ) %> + +<% + + 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; + %> + + + Customers I recently added or modified + + + <% foreach my $custnum ( @custnums ) { %> + <% my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); %> + <% next unless $cust_main; %> + + + <%= $custnum %>: <%= $cust_main->name %> + + + <% + if ( $bgcolor eq $bgcolor1 ) { + $bgcolor = $bgcolor2; + } else { + $bgcolor = $bgcolor1; + } + %> + + <% } %> + + + +<% } %> <%= include('/elements/footer.html') %> -- 2.11.0