Attachment 64194 Details for Bug 18782 – Bug 18782: Remove unused C4::Serials::getsupplierbyserialid

[patch] Bug 18782: Remove unused C4::Serials::getsupplierbyserialid

Bug-18782-Remove-unused-C4Serialsgetsupplierbyseri.patch (text/plain), 2.48 KB, created by Julian Maurice on 2017-06-12 10:30:18 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Julian Maurice

Created: 2017-06-12 10:30:18 UTC

Size: 2.48 KB

patch

obsolete

>From 07de9c47bd1f48c13aec026115dfe617128e5505 Mon Sep 17 00:00:00 2001
>From: Julian Maurice <julian.maurice@biblibre.com>
>Date: Mon, 12 Jun 2017 12:28:31 +0200
>Subject: [PATCH] Bug 18782: Remove unused C4::Serials::getsupplierbyserialid
>
>---
> C4/Serials.pm            | 29 +----------------------------
> t/db_dependent/Serials.t |  4 +---
> 2 files changed, 2 insertions(+), 31 deletions(-)
>
>diff --git a/C4/Serials.pm b/C4/Serials.pm
>index d0f9e66d21..f70a4704f6 100644
>--- a/C4/Serials.pm
>+++ b/C4/Serials.pm
>@@ -78,7 +78,7 @@ BEGIN {
>       &PrepareSerialsData &GetNextExpected    &ModNextExpected
>       &GetPreviousSerialid
> 
>-      &GetSuppliersWithLateIssues             &getsupplierbyserialid
>+      &GetSuppliersWithLateIssues
>       &GetDistributedTo   &SetDistributedTo
>       &getroutinglist     &delroutingmember   &addroutingmember
>       &reorder_members
>@@ -1942,33 +1942,6 @@ sub updateClaim {
>         {}, CLAIMED, @$serialids );
> }
> 
>-=head2 getsupplierbyserialid
>-
>-$result = getsupplierbyserialid($serialid)
>-
>-this function is used to find the supplier id given a serial id
>-
>-return :
>-hashref containing serialid, subscriptionid, and aqbooksellerid
>-
>-=cut
>-
>-sub getsupplierbyserialid {
>-    my ($serialid) = @_;
>-    my $dbh        = C4::Context->dbh;
>-    my $sth        = $dbh->prepare(
>-        "SELECT serialid, serial.subscriptionid, aqbooksellerid
>-         FROM serial 
>-            LEFT JOIN subscription ON serial.subscriptionid = subscription.subscriptionid
>-            WHERE serialid = ?
>-        "
>-    );
>-    $sth->execute($serialid);
>-    my $line   = $sth->fetchrow_hashref;
>-    my $result = $line->{'aqbooksellerid'};
>-    return $result;
>-}
>-
> =head2 check_routing
> 
> $result = &check_routing($subscriptionid)
>diff --git a/t/db_dependent/Serials.t b/t/db_dependent/Serials.t
>index 0cd1e01a9b..7ec3bcf8e2 100755
>--- a/t/db_dependent/Serials.t
>+++ b/t/db_dependent/Serials.t
>@@ -18,7 +18,7 @@ use Koha::DateUtils;
> use Koha::Acquisition::Booksellers;
> use t::lib::Mocks;
> use t::lib::TestBuilder;
>-use Test::More tests => 49;
>+use Test::More tests => 48;
> 
> BEGIN {
>     use_ok('C4::Serials');
>@@ -265,8 +265,6 @@ subtest 'test_updateClaim' => sub {
>     is($late_or_missing_issues_1_2[0]->{status}, 3, 'Got the expected unchanged claim status from update claim');
> };
> 
>-is(C4::Serials::getsupplierbyserialid(),undef, 'test getting supplier idea');
>-
> is(C4::Serials::check_routing(), undef, 'test checking route');
> 
> is(C4::Serials::addroutingmember(),undef, 'test adding route member');
>-- 
>2.11.0

Actions: View | Diff | Splinter Review

Attachments on bug 18782: 64194 | 64739 | 64745