Bug 30778: Remove ModAuthInBatch

1 - git grep ModAuthInBatch
2 - Confirm none of these occurences are calls
3 - Apply patch
4 - git grep ModAuthInBatch
5 - No occurences

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm
index 7d6aa0c..216018d 100644 (file)
--- a/C4/ImportBatch.pm
+++ b/C4/ImportBatch.pm
@@ -328,20 +328,6 @@ sub AddAuthToBatch {
     return $import_record_id;
 }
 
     return $import_record_id;
 }
 

-=head2 ModAuthInBatch
-
-  ModAuthInBatch($import_record_id, $marc_record);
-
-=cut
-
-sub ModAuthInBatch {
-    my ($import_record_id, $marc_record) = @_;
-
-    my $marcflavour = C4::Context->preference('marcflavour');
-    _update_import_record_marc($import_record_id, $marc_record, $marcflavour eq 'UNIMARC' ? 'UNIMARCAUTH' : 'USMARC');
-
-}
-

 =head2 BatchStageMarcRecords
 
 ( $batch_id, $num_records, $num_items, @invalid_records ) =
 =head2 BatchStageMarcRecords
 
 ( $batch_id, $num_records, $num_items, @invalid_records ) =