[open-ils-commits] r18300 - trunk/Open-ILS/src/perlmods/OpenILS/WWW (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-10-12 20:29:38 -0400 (Tue, 12 Oct 2010)
New Revision: 18300

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/TemplateBatchBibUpdate.pm
Log:
double-arg, backwards logic

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/TemplateBatchBibUpdate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/TemplateBatchBibUpdate.pm	2010-10-13 00:28:43 UTC (rev 18299)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/TemplateBatchBibUpdate.pm	2010-10-13 00:29:38 UTC (rev 18300)
@@ -159,7 +159,7 @@
 
     my %seen;
     for my $r (@records) {
-        next unless ($seen{$r});
+        next if ($seen{$r});
         $item->target_biblio_record_entry($r);
         $e->request('open-ils.cstore.direct.container.biblio_record_entry_bucket_item.create', $item )->gather(1);
         $seen{$r}++;