X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htdocs%2Fsearch%2Fcust_main.cgi;h=8b3092ebab9ef1184129e2de32784c5f9285122c;hb=e890290677daab75e0ce28d5679baddb8a997a8e;hp=c754dd94bb3fa3d9c15dd4301589a63fe67868cd;hpb=c81882184aba764c5aa17ee22e7b73718ac7a281;p=freeside.git diff --git a/htdocs/search/cust_main.cgi b/htdocs/search/cust_main.cgi index c754dd94b..8b3092eba 100755 --- a/htdocs/search/cust_main.cgi +++ b/htdocs/search/cust_main.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main.cgi,v 1.13 1999-08-12 04:32:21 ivan Exp $ +# $Id: cust_main.cgi,v 1.15 2000-07-17 16:45:41 ivan Exp $ # # Usage: post form to: # http://server.name/path/cust_main.cgi @@ -17,7 +17,13 @@ # display total, use FS::CGI ivan@sisd.com 98-jul-17 # # $Log: cust_main.cgi,v $ -# Revision 1.13 1999-08-12 04:32:21 ivan +# Revision 1.15 2000-07-17 16:45:41 ivan +# first shot at invoice browsing and some other cleanups +# +# Revision 1.14 1999/08/12 04:45:21 ivan +# typo - missed a paren +# +# Revision 1.13 1999/08/12 04:32:21 ivan # hidecancelledcustomers # # Revision 1.12 1999/07/17 10:38:52 ivan @@ -89,6 +95,8 @@ if ( $cgi->keywords ) { } elsif ( $query eq 'company' ) { $sortby=\*company_sort; @cust_main=qsearch('cust_main',{}); + } else { + die "unknown query string $query"; } } else { @cust_main=(); @@ -99,7 +107,7 @@ if ( $cgi->keywords ) { @cust_main = grep { $_->ncancelled_pkgs || ! $_->all_pkgs } @cust_main if $conf->exists('hidecancelledcustomers'); -if ( $conf->exists('hidecancelledpackages' ) { +if ( $conf->exists('hidecancelledpackages' ) ) { %all_pkgs = map { $_->custnum => [ $_->ncancelled_pkgs ] } @cust_main; } else { %all_pkgs = map { $_->custnum => [ $_->all_pkgs ] } @cust_main;