X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Findex.html;h=1a92b45f626deee16c521edbee6324050ed14d37;hb=e631aea6e8c9dbc41192948468314afd7b806613;hp=cd9ac4686a50243c87f9bc1b31a179a4a44a2818;hpb=223aeed3d2aa6e3f7d01870e726935523c832437;p=freeside.git diff --git a/httemplate/index.html b/httemplate/index.html index cd9ac4686..1a92b45f6 100644 --- a/httemplate/index.html +++ b/httemplate/index.html @@ -1,207 +1,59 @@ - - - - Freeside Main Menu - - - - - -
- Silicon Interactive Software Design - - freeside main menu - - version 1.4.0 -
Freeside home page -
Documentation -
Classic interface -
- -
-[ Sales / Customer service ] -[ Bookkeeping / Collections ] -[ Reports ] -[ Sysadmin ] - - - -
Sales / Customer service
-
New Customer -
-
Last name or all customers by last name
-
Company or all customers by company
-
Username or all accounts by username
-
Domain or all domains
- - -
-
- - - -


- - -[ Sales / Customer service ] -[ Bookkeeping / Collections ] -[ Reports ] -[ Sysadmin ] - - - -
Bookkeeping / Collections
-
Quick payment entry -
-
Credit card #
-
Invoice #
-
Check #
-
View pending credit card batch -

Invoice reports - - Financial reports - -


- Administration - -
-
- - - -


- - - -[ Sales / Customer service ] -[ Bookkeeping / Collections ] -[ Reports ] -[ Sysadmin ] - - - -
Reports
-
- Auditing pre-Freeside services with no customer record - - Packages - - Invoices - - Financial reports - - Customers - -
SQL query: SELECT
- -
-
- - - -


- - -[ Sales / Customer service ] -[ Bookkeeping / Collections ] -[ Reports ] -[ Sysadmin ] - - - -
Sysadmin
-
- View active NAS ports -
View pending job queue -



- Configuration -

Administration - -
-
-















-















-















-















-















-















-















-















- - +<% my $conf = new FS::Conf; %> +<%= 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') %> +