X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=9d636561115edcd7d61f69eec3898b0689c96cd9;hb=23d995215379c4786c2cb1d930a09c734c2472aa;hp=08c5824a7f4f1b8508ff263c0452eaf25d92a5ce;hpb=0824a94355e5fb2b4c379bb013d66466725629f5;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 08c5824a..9d636561 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -43,7 +43,8 @@ $filename = undef;
   lockout => '9,Locked out?,yesno',        # won't let them in at all
   dxok => '9,DX Spots?,yesno',            # accept his dx spots?
   annok => '9,Announces?,yesno',            # accept his announces?
-  reg => '0,Registered?,yesno',            # is this user registered? 
+  reg => '0,Registered?,yesno',            # is this user registered?
+  lang => '0,Language',
 );
 
 no strict;
@@ -124,7 +125,7 @@ sub get
 
 sub get_all_calls
 {
-  return keys %u;
+  return (sort keys %u);
 }
 
 #