X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Flocation_Mixin.pm;h=d45738682e2c9016af3cfb1d03e6688e2f1a8c15;hp=675e0025598e1ccb91446428130be10522510a87;hb=90393980e5f2859ee1e186fa461f48f5129e803e;hpb=9e570867c27b5336f4fa701c84b70fd65791f87c

diff --git a/FS/FS/location_Mixin.pm b/FS/FS/location_Mixin.pm
index 675e00255..d45738682 100644
--- a/FS/FS/location_Mixin.pm
+++ b/FS/FS/location_Mixin.pm
@@ -40,4 +40,18 @@ sub location_label {
   $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;