=== yfk
==================================================================
--- yfk	(revision 10075)
+++ yfk	(revision 10076)
@@ -1723,7 +1723,8 @@
 	sprintf("operator=%-15s     - Operator's callsign", $yfksubs::operator),
 	sprintf("lotwdetails=%-15s  - Include details from LOTW?", $yfksubs::lotwdetails),
 	sprintf("directory=%-15s    - Default directory (ADIF, etc)", $yfksubs::directory),
-	sprintf("fieldorder=%-15s   - Default entry field order", $yfksubs::fieldorder)
+	sprintf("fieldorder=%-15s   - Default entry field order", $yfksubs::fieldorder),
+	sprintf("usehamdb=%-15s     - Use Ham::Callsign::DB to fill data", $yfksubs::usehamdb)
 	);
 
 	my $choice = &selectlist(\$wmain, 2, 1, 18, 78, \@setup);
@@ -1960,7 +1961,16 @@
 		elsif ($ret ne '') {
 			&changeconfig($original, "fieldorder=$ret");
 		}
-	} 
+	}
+	elsif ($choice == 24) {
+		$original = "usehamdb=$yfksubs::usehamdb";
+		my $ret = &askbox(10,20,4,30, '[01]', "Use Ham::Callsign::DB? 1=yes, 0=no",
+				$yfksubs::usehamdb);
+		if ($ret eq 'm') { last }
+		elsif ($ret ne '') {
+			&changeconfig($original, "usehamdb=$ret");
+		}
+	}
 
 	&readconfig;
 	&readsubconfig;
=== yfksubs.pl
==================================================================
--- yfksubs.pl	(revision 10075)
+++ yfksubs.pl	(revision 10076)
@@ -95,6 +95,8 @@
 'CALL DATE TON TOFF BAND MODE QTH NAME QSLS QSLR RSTS RSTR REM PWR';
 my @fieldorder = split(/\s+/, $fieldorder);
 
+our $usehamdb = 1;
+
 # We read the configuration file .yfklog.
 
 sub readsubconfig {
@@ -189,7 +191,9 @@
 			$fieldorder= $1;
 			@fieldorder = split(/\s+/, $fieldorder);
 	}
-
+	elsif ($line =~ /^usehamdb=(.+)/) {
+			$usehamdb= $1;
+	}
 }
 close CONFIG;	# Configuration read. Don't need it any more.
 
@@ -1369,29 +1373,31 @@
 		refresh($wi[5]);
 	}
 
-	my $results = $hamdb->lookup(uc($call));
-	if ($results && $#$results > -1) {
-	    my $result = $results->[0];  # just get the first
+	if ($usehamdb) {
+		my $results = $hamdb->lookup(uc($call));
+		if ($results && $#$results > -1) {
+			my $result = $results->[0];	# just get the first
 
-	    my $qth = $result->{'qth'};
-	    ${$_[0]}[6] = $qth;
-	    addstr($wi[6],0,0,$qth);
-	    refresh($wi[6]);
+			my $qth = $result->{'qth'};
+			${$_[0]}[6] = $qth;
+			addstr($wi[6],0,0,$qth);
+			refresh($wi[6]);
 
-	    my $nm = $result->{'first_name'} . " " . $result->{'last_name'};
-	    ${$_[0]}[7] = $nm;
-	    addstr($wi[7],0,0,$nm);
-	    refresh($wi[7]);
+			my $nm = $result->{'first_name'} . " " . $result->{'last_name'};
+			${$_[0]}[7] = $nm;
+			addstr($wi[7],0,0,$nm);
+			refresh($wi[7]);
 
-	    # remarks
-	    if (defined($result->{'operator_class'})) {
-		my $opclass = "Cl: $result->{'operator_class'}";
-		${$_[0]}[12] = $opclass;
-		addstr($wi[12],0,0,$opclass);
-		refresh($wi[12]);
-	    }
+			# remarks
+			if (defined($result->{'operator_class'})) {
+				my $opclass = "Cl: $result->{'operator_class'}";
+				${$_[0]}[12] = $opclass;
+				addstr($wi[12],0,0,$opclass);
+				refresh($wi[12]);
+			}
+		}
 	}
-    }
+}
 
 ##############################################################################
 # &getdate;   Uses gmtime() to get the current date  in DDMMYYYY
=== config
==================================================================
--- config	(revision 10075)
+++ config	(revision 10076)
@@ -173,3 +173,8 @@
 
 lotwdetails=0
 
+#
+# Weather we should use the Ham::Callsign::DB class to look up data to
+# fill in QSO information with FCC and/or QRZ lookup information
+#
+usehamdb=1