Bug 19040: Refactor GetMarcBiblio parameters

[srvgit] / C4 / Serials.pm

diff --git a/C4/Serials.pm b/C4/Serials.pm
index b4897c2..d79c0a5 100644 (file)
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -1485,7 +1485,7 @@ sub NewSubscription {
     #set serial flag on biblio if not already set.
     my $biblio = Koha::Biblios->find( $biblionumber );
     if ( $biblio and !$biblio->serial ) {
-        my $record = GetMarcBiblio($biblionumber);
+        my $record = GetMarcBiblio({ biblionumber => $biblionumber });
         my ( $tag, $subf ) = GetMarcFromKohaField( 'biblio.serial', $biblio->frameworkcode );
         if ($tag) {
             eval { $record->field($tag)->update( $subf => 1 ); };