diff --git a/C4/Output.pm b/C4/Output.pm
index fef856699a..a4d6253b68 100644
--- a/C4/Output.pm
+++ b/C4/Output.pm
@@ -477,6 +477,7 @@ sub getkeytableselectoptions {
 		$keyfieldname,	# column name of code to use in option list
 		$descfieldname,	# column name of descriptive field
 		$showkey,	# flag to show key in description
+		$default,	# optional default key
 	)=@_;
 	my $selectclause;	# return value
 
@@ -502,6 +503,11 @@ sub getkeytableselectoptions {
 	while ( ($key, $desc) = $sth->fetchrow) {
 	    if ($showkey || ! $desc ) { $desc="$key - $desc"; }
 	    $selectclause.="<option value='$key'>$desc\n";
+	    $selectclause.="<option";
+	    if (defined $default && $default eq $key) {
+		$selectclause.=" selected";
+	    }
+	    $selectclause.=" value='$key'>$desc\n";
 	    print "<PRE>Sel=$selectclause </PRE>\n" if $debug; 
 	}
 	return $selectclause;
diff --git a/acqui.simple/marcimport.pl b/acqui.simple/marcimport.pl
index 131df99b7f..b929984d5f 100755
--- a/acqui.simple/marcimport.pl
+++ b/acqui.simple/marcimport.pl
@@ -250,9 +250,17 @@ RECORD:
 	    $origlccn=$input->hidden(-name=>'origlccn', -default=>$lccn);
 	    $origcontrolnumber=$input->hidden(-name=>'origcontrolnumber', -default=>$controlnumber);
 
+	    my $defaultitemtype;
+
+	    if (defined $deweyinput) {
+		$defaultitemtype = 'NF';
+	    } else {
+		$defaultitemtype = 'F';
+	    }
+
 	    #print "<PRE>getting itemtypeselect</PRE>\n";
 	    $itemtypeselect=&getkeytableselectoptions(
-		$dbh, 'itemtypes', 'itemtype', 'description', 1);
+		$dbh, 'itemtypes', 'itemtype', 'description', 1, $defaultitemtype);
 	    #print "<PRE>it=$itemtypeselect</PRE>\n";
 
 	    ($qissn) || ($qissn='NIL');
@@ -1110,6 +1118,10 @@ sub FormatMarcText {
 
 #---------------
 # $Log$
+# Revision 1.6.2.28  2002/06/27 17:41:26  tonnesen
+# Applying patch from Matt Kraai to pick F or NF based on presense of a dewey
+# number when adding a book via marcimport.pl
+#
 # Revision 1.6.2.27  2002/06/26 15:52:55  amillar
 # Fix display of marc tag labels and indicators
 #