added the hooks for internationalisation

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index bc55775fc6f3e277bcfcf40e140081bbdbc6bea5..55245a59a2a7cd2b5651dd8dd08e464c73bfe368 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -106,6 +106,7 @@ sub new
   $self->{sort} = 'U';
   $self->{dxok} = 1;
   $self->{annok} = 1;
+  $self->{lang} = $main::lang;
   bless $self, $pkg;
   $u{call} = $self;
 }