From 6fe960a46719c20444c316328415f9fc55d20144 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Mon, 7 Aug 2017 08:44:43 +0200 Subject: [PATCH] Bug 19047: Fix AddBiblio call in Reserves.t Content-Type: text/plain; charset=utf-8 AddBiblio does not return a title; the biblioitemnumber is stored in the title variable. The variables for biblioitemnumber are not used and can be removed. Test plan: Run t/db_dependent/Reserves.t --- t/db_dependent/Reserves.t | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/t/db_dependent/Reserves.t b/t/db_dependent/Reserves.t index 810050e..d28c284 100755 --- a/t/db_dependent/Reserves.t +++ b/t/db_dependent/Reserves.t @@ -93,8 +93,7 @@ else { MARC::Field->new('245', '', '', a => $title), ); } -my ($bibnum, $bibitemnum); -($bibnum, $title, $bibitemnum) = AddBiblio($bib, $frameworkcode); +my ( $bibnum ) = AddBiblio($bib, $frameworkcode); # Create a helper item instance for testing my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = AddItem( @@ -235,7 +234,7 @@ $bib2->append_fields( ); # create one item belonging to FPL and one belonging to CPL -my ($bibnum2, $bibitemnum2) = AddBiblio($bib, $frameworkcode); +my ( $bibnum2 ) = AddBiblio($bib, $frameworkcode); my ($itemnum_cpl, $itemnum_fpl); ( undef, undef, $itemnum_cpl ) = AddItem( { homebranch => $branch_1, -- 2.1.4