Bug 17196: Update misc/maintenance/sanitize_records.pl

Test plan:
Use the sanitize_records.pl maintenance script with the --auto-search
option

Signed-off-by: Mason James <mtj@kohaaloha.com>
Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
Signed-off-by: Zeno Tajoli <z.tajoli@cineca.it>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

diff --git a/misc/maintenance/sanitize_records.pl b/misc/maintenance/sanitize_records.pl
index b9caa4b..f91dadd 100755 (executable)
--- a/misc/maintenance/sanitize_records.pl
+++ b/misc/maintenance/sanitize_records.pl
@@ -150,11 +150,12 @@ sub biblios_to_sanitize {
     my $dbh   = C4::Context->dbh;
     my $query = q{
         SELECT biblionumber
-        FROM biblioitems
-        WHERE marcxml
-        LIKE "%&%"
-    };
-    return @{ $dbh->selectcol_arrayref( $query, { Slice => {} }, ) };
+        FROM biblio_metadata
+        WHERE format = 'marcxml'
+            AND marcflavour = ?
+            AND metadata LIKE "%&%"
+        };
+    return @{ $dbh->selectcol_arrayref( $query, { Slice => {} }, C4::Context->preference('marcflavour') ) };
 }
 
 =head1 NAME
@@ -194,7 +195,7 @@ commas.
 
 Give a biblionumber list using a filename. One biblionumber by line or separate them with a whitespace character.
 
-=item B<--auto_search>
+=item B<--auto-search>
 
 Automatically search records containing "&amp;" in biblioitems.marcxml or in the specified fields.