X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=532322d0f506f6731988ddc695a68ef25d11e174;hb=6c38bca91e6b75002e15cce29c45a894f675e22e;hp=0280793756c7556972f435bd897e64769adbe5ae;hpb=43d1c9f4ff26d0ee9afbb54e7fb90701a9d4e694;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 02807937..532322d0 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -957,7 +957,7 @@ sub send_dx_spot $dxchan->send($routeit) unless $dxchan->{isolate} || $self->{isolate}; } } elsif ($dxchan->is_user && $dxchan->{dx}) { - my $buf = Spot::formatb($_[0], $_[1], $_[2], $_[3], $_[4]); + my $buf = Spot::formatb($dxchan->{user}->wantgrid, $_[0], $_[1], $_[2], $_[3], $_[4]); $buf .= "\a\a" if $dxchan->{beep}; if ($dxchan->{state} eq 'prompt' || $dxchan->{state} eq 'convers') { $dxchan->send($buf);