only get active copies

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5858 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Evergreen/src/extras/import/drain-batgirl-item.pl b/Evergreen/src/extras/import/drain-batgirl-item.pl
index db6d023..f346361 100755 (executable)
--- a/Evergreen/src/extras/import/drain-batgirl-item.pl
+++ b/Evergreen/src/extras/import/drain-batgirl-item.pl
@@ -16,7 +16,7 @@ SQL
 
 warn "going for the data...";
 
-my $sth = $dbh->prepare('select * from ITEM');
+my $sth = $dbh->prepare("SELECT * FROM ITEM WHERE LAST_IMPORT_DATE IN ('20060901','20060902');");
 $sth->execute;
 
 warn "got it, writing file...";