remove duplicate fields in DXUser to match DXuser

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index a1fecbad1acba3eb5a75b9274b5f2a103c7fa84e..b5f56c2a442f1ab52de8af97b1fa855a6ae8d8e9 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -42,34 +42,25 @@ my $json;
 # hash of valid elements and a simple prompt
 %valid = (
                  'sort' => '0,Type of User', # A - ak1a, U - User, S - spider cluster, B - BBS
-                 K => '9,Seen on PC92 K,yesno',
-                 addr => '0,Full Address',
                  addr => '0,Full Address',
                  alias => '0,Real Callsign',
-                 alias => '0,Real Callsign',
                  annok => '9,Accept Announces?,yesno', # accept his announces?
                  bbs => '0,Home BBS',
                  believe => '1,Believable nodes,parray',
-                 believe => '1,Believable nodes,parray',
                  buddies => '0,Buddies,parray',
                  build => '1,Build',
-                 build => '1,Build',
-                 call => '0,Callsign',
                  call => '0,Callsign',
                  connlist => '1,Connections,parraydifft',
                  dxok => '9,Accept DX Spots?,yesno', # accept his dx spots?
                  email => '0,E-mail Address,parray',
-                 email => '0,E-mail Address,parray',
                  group => '0,Group,parray',    # used to create a group of users/nodes for some purpose or other
                  hmsgno => '0,Highest Msgno',
                  homenode => '0,Home Node',
                  isolate => '9,Isolate network,yesno',
+                 K => '9,Seen on PC92 K,yesno',
                  lang => '0,Language',
                  lastin => '0,Last Time in,cldatetime',
-                 lastin => '0,Last Time in,cldatetime',
                  lastoper => '9,Last for/oper,cldatetime',
-                 lastoper => '9,Last for/oper,cldatetime',
-                 lastping => '1,Last Ping at,ptimelist',
                  lastping => '1,Last Ping at,ptimelist',
                  lastseen => '0,Last Seen,cldatetime',
                  lat => '0,Latitude,slat',