remove $Id$ strings from everywhere that I can find

[spider.git] / cmd / set / dxcq.pl

diff --git a/cmd/set/dxcq.pl b/cmd/set/dxcq.pl
index c70ff168a2e822a19961572b67a2aecaa17ea5e1..89c1a9c7e539d4b62066ca8b1830795f7620fbd1 100644 (file)
--- a/cmd/set/dxcq.pl
+++ b/cmd/set/dxcq.pl
@@ -3,7 +3,7 @@
 #
 # Copyright (c) 2000 - Dirk Koopman
 #
-# $Id$
+#
 #
 
 my ($self, $line) = @_;
@@ -18,6 +18,14 @@ foreach $call (@args) {
        my $user = DXUser->get_current($call);
        if ($user) {
                $user->wantdxcq(1);
+               if ($user->wantdxitu) {
+                       push @out, $self->msg('dxituu', $call);
+                       $user->wantdxitu(0);
+               }
+               if ($user->wantusstate) {
+                       push @out, $self->msg('usstateu', $call);
+                       $user->wantusstate(0);
+               }
                $user->put;
                push @out, $self->msg('dxcqs', $call);
        } else {