1.7.0? why not!

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 @@
   #    <BR> -->
 
   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' ) %>
-
-  <BR>
-
-[<A NAME="customer_service" style="background-color: #cccccc">&nbsp;Sales&nbsp;/&nbsp;Customer&nbsp;service&nbsp;</A>]
-[&nbsp;<A HREF="#bookkeeping">Bookkeeping&nbsp;/&nbsp;Collections</A>&nbsp;]
-[&nbsp;<A HREF="#reports">Reports</A>&nbsp;]
-    <TABLE CELLSPACING=2 CELLPADDING=0 BORDER=0" WIDTH="100%" BGCOLOR="#eeeeee" STYLE="border: 1px solid black">
-    <TR><TH BGCOLOR="#cccccc">Sales / Customer service</TH></TR>
-    <TR><TD>
-        <BR><FORM ACTION="search/svc_acct.cgi" METHOD="GET">Username <INPUT TYPE="text" NAME="username"><SELECT NAME="username_type"><OPTION VALUE="All">(all)</OPTION><OPTION>Fuzzy</OPTION><OPTION>Substring</OPTION><OPTION SELECTED>Exact</OPTION></SELECT><INPUT TYPE="submit" VALUE="Search"></FORM>
-        <BR><FORM ACTION="search/svc_domain.cgi" METHOD="GET">Domain <INPUT TYPE="text" NAME="domain"><INPUT TYPE="submit" VALUE="Search"></FORM>
-	<BR><FORM ACTION="search/svc_broadband.cgi" METHOD="GET">IP Address <INPUT TYPE="text" NAME="ip_addr"><INPUT TYPE="submit" VALUE="Search"></FORM>
-      <BR>
-    </TD></TR>
-    </TABLE>
-
-    <BR><BR><BR>
-
-
-[&nbsp;<A HREF="#customer_service">Sales&nbsp;/&nbsp;Customer&nbsp;service</A>&nbsp;]
-[<A NAME="bookkeeping" style="background-color: #cccccc">&nbsp;Bookkeeping&nbsp;/&nbsp;Collections&nbsp;</A>]
-[&nbsp;<A HREF="#reports">Reports</A>&nbsp;]
-    <TABLE CELLSPACING=2 CELLPADDING=0 BORDER=0 WIDTH="100%" BGCOLOR="#eeeeee" STYLE="border: 1px solid black">
-    <TR><TH BGCOLOR="#cccccc">Bookkeeping / Collections</TH></TR>
-    <TR><TD>
-      <BR><A HREF="misc/batch-cust_pay.html">Quick payment entry</A>
-      <BR>
-      <BR><FORM ACTION="search/cust_main.cgi" METHOD="GET">Credit card # <INPUT TYPE="hidden" NAME="card_on" VALUE="1"><INPUT TYPE="text" NAME="card"><INPUT TYPE="submit" VALUE="Search"></FORM>
-      <FORM ACTION="search/cust_bill.html" METHOD="GET">Invoice # <INPUT TYPE="text" NAME="invnum" SIZE="8"><INPUT TYPE="submit" VALUE="Search"></FORM>
-      <FORM ACTION="search/cust_pay.cgi" METHOD="GET">Check # <INPUT TYPE="text" NAME="payinfo" SIZE="8"><INPUT TYPE="hidden" NAME="payby" VALUE="BILL"><INPUT TYPE="submit" VALUE="Search"></FORM>
-      <BR>
-      Invoice event reports
-            <UL>
-              <LI><a href="search/cust_bill_event.html">All invoice events for a date range</a>
-              <LI><a href="search/cust_bill_event.html?failed=1">Invoice event errors for a date range (failed credit cards, processor or printer problems, etc.)</a>
-            </UL>
-      <BR><BR>
-    </TD></TR>
-    </TABLE>
-
-
-
-    <BR><BR><BR>
-
-
-
-[&nbsp;<A HREF="#customer_service">Sales&nbsp;/&nbsp;Customer&nbsp;service</A>&nbsp;]
-[&nbsp;<A HREF="#bookkeeping">Bookkeeping&nbsp;/&nbsp;Collections</A>&nbsp;]
-[<A NAME="reports" style="background-color: #cccccc">&nbsp;Reports&nbsp;</A>]
-    <TABLE CELLSPACING=2 CELLPADDING=0 BORDER=0 WIDTH="100%" BGCOLOR="#eeeeee" STYLE="border: 1px solid black">
-    <TR><TH BGCOLOR="#cccccc">Reports</TH></TR>
-    <TR><TD>
-      <BR>
-      <A HREF="search/sqlradius.html">RADIUS sessions</A><BR><BR>
-    <FORM ACTION="search/sql.html" METHOD="GET">SQL query: <TT>SELECT </TT><INPUT TYPE="text" NAME="sql" SIZE=32><INPUT TYPE="submit" VALUE="Query"></FORM>
-
-    <BR>
-    </TD></TR>
-    </TABLE>
-
-    <BR><BR><BR>
+<%= 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;
+  %>
+
+  <TR>
+    <TH CLASS="grid" BGCOLOR="#cccccc" COLSPAN=1>Customers I recently added or modified</TH>
+  </TR>
+
+  <% foreach my $custnum ( @custnums ) { %> 
+  <% my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); %>
+  <% next unless $cust_main; %>
+
+    <TR>
+      <TD CLASS="grid" BGCOLOR="<%= $bgcolor %>"><A HREF="view/cust_main.cgi?<%= $custnum %>"><%= $custnum %>: <%= $cust_main->name %></A></TD>
+    </TR>
+
+    <%
+       if ( $bgcolor eq $bgcolor1 ) {
+          $bgcolor = $bgcolor2;
+        } else {
+          $bgcolor = $bgcolor1;
+        }
+    %>
+
+  <% } %>
+
+  </TABLE>
+
+<% } %>
 
 <%= include('/elements/footer.html') %>