summaryrefslogtreecommitdiff
path: root/FS/FS/location_Mixin.pm
diff options
context:
space:
mode:
Diffstat (limited to 'FS/FS/location_Mixin.pm')
-rw-r--r--FS/FS/location_Mixin.pm57
1 files changed, 0 insertions, 57 deletions
diff --git a/FS/FS/location_Mixin.pm b/FS/FS/location_Mixin.pm
deleted file mode 100644
index d457386..0000000
--- a/FS/FS/location_Mixin.pm
+++ /dev/null
@@ -1,57 +0,0 @@
-package FS::location_Mixin;
-
-use strict;
-use FS::Record qw( qsearchs );
-use FS::cust_location;
-
-=item cust_location
-
-Returns the location object, if any (see L<FS::cust_location>).
-
-=cut
-
-sub cust_location {
- my $self = shift;
- return '' unless $self->locationnum;
- qsearchs( 'cust_location', { 'locationnum' => $self->locationnum } );
-}
-
-=item cust_location_or_main
-
-If this package is associated with a location, returns the locaiton (see
-L<FS::cust_location>), otherwise returns the customer (see L<FS::cust_main>).
-
-=cut
-
-sub cust_location_or_main {
- my $self = shift;
- $self->cust_location || $self->cust_main;
-}
-
-=item location_label [ OPTION => VALUE ... ]
-
-Returns the label of the location object (see L<FS::cust_location>).
-
-=cut
-
-sub location_label {
- my $self = shift;
- my $object = $self->cust_location_or_main;
- $object->location_label(@_);
-}
-
-=item location_hash
-
-Returns a hash of values for the location, either from the location object,
-the cust_main shipping address, or the cust_main address, whichever is present
-first.
-
-=cut
-
-sub location_hash {
- my $self = shift;
- my $object = $self->cust_location_or_main;
- $object->location_hash(@_);
-}
-
-1;