[freeside-commits] freeside/FS/FS/cust_main Search.pm,1.2,1.3

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/cust_main
In directory wavetail.420.am:/tmp/cvs-serv16861/FS/FS/cust_main

Modified Files:
	Search.pm 
Log Message:
add search on harcoded geocode customers w/cch, RT#10376

Index: Search.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main/Search.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -d -r1.2 -r1.3
--- Search.pm	21 Oct 2010 01:34:52 -0000	1.2
+++ Search.pm	31 Oct 2010 19:04:56 -0000	1.3
@@ -520,6 +520,13 @@
     if $params->{'no_censustract'};
 
   ##
+  # parse with hardcoded tax location checkbox
+  ##
+
+  push @where, "geocode is not null"
+    if $params->{'with_geocode'};
+
+  ##
   # dates
   ##
 
@@ -704,6 +711,17 @@
 
   }
 
+  if ( $params->{'with_geocode'} ) {
+
+    unshift @extra_headers, 'Tax location override', 'Calculated tax location';
+    unshift @extra_fields, sub { my $c = shift; $c->get('geocode'); },
+                           sub { my $c = shift;
+                                 $c->set('geocode', '');
+                                 $c->geocode('cch'); #XXX only cch right now
+                               };
+
+  }
+
   my $sql_query = {
     'table'         => 'cust_main',
     'select'        => $select,