optimize customer list, RT#30173

[freeside.git] / FS / FS / access_user.pm

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index 1f5cec3..a3a94c4 100644 (file)
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -749,6 +749,16 @@ sub sched_item {
   qsearch( 'sched_item', { 'usernum' => $self->usernum } );
 }
 
+=item locale
+
+=cut
+
+sub locale {
+  my $self = shift;
+  return $self->{_locale} if exists($self->{_locale});
+  $self->{_locale} = $self->option('locale');
+}
+
 =back
 
 =head1 BUGS