X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXSql.pm;h=842e30054fc1a8c00db5f483d8593ef02b25e10b;hb=7d4b15681464d77945e7ea78ef60ed3305d57d95;hp=9c440fbd48acab19ec7d32d80a83e92f6d18ff3a;hpb=96c0247decddd941e8a191f48536d68506aca181;p=spider.git

diff --git a/perl/DXSql.pm b/perl/DXSql.pm
index 9c440fbd..842e3005 100644
--- a/perl/DXSql.pm
+++ b/perl/DXSql.pm
@@ -162,6 +162,7 @@ sub spot_search
 		$expr =~ s/\$f11/spottercq/g;
 		$expr =~ s/\$f12/spotstate/g;
 		$expr =~ s/\$f13/spotterstate/g;
+		$expr =~ s/\$f14/ipaddr/g;
 		$expr =~ s/\$f0/freq/g;
 		$expr =~ s/\$f1/spotcall/g;
 		$expr =~ s/\$f2/time/g;
@@ -183,7 +184,7 @@ sub spot_search
 	my $trange = $fdays ? "($fdays and $days)" : $days;
 	$expr .= $expr ? " and $trange" : $trange;
     my $s = qq{select freq,spotcall,time,comment,spotter,spotdxcc,spotterdxcc,
-origin,spotitu,spotcq,spotteritu,spottercq,spotstate,spotterstate from spot
+origin,spotitu,spotcq,spotteritu,spottercq,spotstate,spotterstate,ipaddr from spot
 where $expr order by time desc limit $n};
     dbg("sql expr: $s") if isdbg('search');
 	my $ref = $self->{dbh}->selectall_arrayref($s);