projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d09facc
)
add an $import global flag to cust_location so we can avoid geocoding on batch import...
author
Ivan Kohler
<ivan@freeside.biz>
Mon, 16 Apr 2012 00:49:39 +0000
(17:49 -0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Mon, 16 Apr 2012 00:49:39 +0000
(17:49 -0700)
FS/FS/cust_location.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_location.pm
b/FS/FS/cust_location.pm
index
f863b10
..
a5250ec
100644
(file)
--- a/
FS/FS/cust_location.pm
+++ b/
FS/FS/cust_location.pm
@@
-1,7
+1,8
@@
package FS::cust_location;
package FS::cust_location;
+use base qw( FS::geocode_Mixin FS::Record );
use strict;
use strict;
-use
base qw( FS::geocode_Mixin FS::Record
);
+use
vars qw( $import
);
use Locale::Country;
use FS::UID qw( dbh );
use FS::Record qw( qsearch ); #qsearchs );
use Locale::Country;
use FS::UID qw( dbh );
use FS::Record qw( qsearch ); #qsearchs );
@@
-10,6
+11,8
@@
use FS::prospect_main;
use FS::cust_main;
use FS::cust_main_county;
use FS::cust_main;
use FS::cust_main_county;
+$import = 0;
+
=head1 NAME
FS::cust_location - Object methods for cust_location records
=head1 NAME
FS::cust_location - Object methods for cust_location records
@@
-195,7
+198,7
@@
sub check {
return $error if $error;
$self->set_coord
return $error if $error;
$self->set_coord
- unless $
self->latitude && $self->longitude
;
+ unless $
import || ($self->latitude && $self->longitude)
;
return "No prospect or customer!" unless $self->prospectnum || $self->custnum;
return "Prospect and customer!" if $self->prospectnum && $self->custnum;
return "No prospect or customer!" unless $self->prospectnum || $self->custnum;
return "Prospect and customer!" if $self->prospectnum && $self->custnum;