use also MKP homebranch

diff --git a/mkp-marc.pl b/mkp-marc.pl
index 286b9eb..2d414d3 100755 (executable)
--- a/mkp-marc.pl
+++ b/mkp-marc.pl
@@ -18,6 +18,7 @@ from items
        join biblioitems using (biblionumber)
        join biblio using (biblionumber)
 where location = 'MKP'
+       or homebranch = 'MKP'
 limit $limit
 };
 
@@ -34,6 +35,8 @@ warn "# sql $sql";
 my $sth = $dbh->prepare( $sql );
 $sth->execute();
 
+warn "# ", $sth->rows,"\n";
+
 my $i = 1;
 
 while ( my $row = $sth->fetchrow_hashref ) {