Bug 12598: Add use Koha::Patron::debarments statement

[koha.git] / tools / showdiffmarc.pl

diff --git a/tools/showdiffmarc.pl b/tools/showdiffmarc.pl
index ec0f735..0c585a4 100755 (executable)
--- a/tools/showdiffmarc.pl
+++ b/tools/showdiffmarc.pl
@@ -31,6 +31,8 @@ use C4::Auth;
 use C4::Biblio;
 use C4::ImportBatch;
 
+use Koha::Biblios;
+
 # Input params
 my $input        = new CGI;
 my $biblionumber = $input->param('id');
@@ -57,11 +59,14 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     }
 );
 
-$recordBiblionumber = GetMarcBiblio($biblionumber, 'embed_items');
+$recordBiblionumber = GetMarcBiblio({
+    biblionumber => $biblionumber,
+    embed_items  => 1,
+});
 if( $recordBiblionumber ) {
     $formatted1 = $recordBiblionumber->as_formatted;
-    my $data = GetBiblioData($biblionumber);
-    $biblioTitle = $data->{title};
+    my $biblio = Koha::Biblios->find( $biblionumber );
+    $biblioTitle = $biblio->title;
 } else {
     $errorFormatted1 = 1;
 }