Attachment 28000 Details for Bug 12122 – Bug 12122: TransferSlip should accept both itemnumber and barcode

[patch] Bug 12122: TransferSlip should accept both itemnumber and barcode

Bug-12122-TransferSlip-should-accept-both-itemnumb.patch (text/plain), 4.00 KB, created by Benjamin Rokseth on 2014-05-06 20:35:20 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Benjamin Rokseth

Created: 2014-05-06 20:35:20 UTC

Size: 4.00 KB

patch

obsolete

>From 9701f47d52124b3f7567b3108f529135ad05abe1 Mon Sep 17 00:00:00 2001
>From: Benjamin Rokseth <benjamin.rokseth@kul.oslo.kommune.no>
>Date: Tue, 22 Apr 2014 14:09:16 +0200
>Subject: [PATCH] Bug 12122: TransferSlip should accept both itemnumber and
> barcode
>
>Added small patch to allow barcode as input in TransferSlip routine, mostly
>to allow generating transfer slips where only barcode is present (aka.
>javascript).
>
>Test plan:
>1) find book with <barcode> and <itemnumber>
>2) generate transferslips with both:
>  transfer-slip.pl?transferitem=<itemnumber>3967925&amp;branchcode=MPL&amp;op=slip
>  transfer-slip.pl?barcode=<barcode>&amp;branchcode=MPL&amp;op=slip
>and verify that the generated slips match.
>
>Signed-off-by: Owen Leonard <oleonard@myacpl.org>
>
>Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
>
>Edit:
> - Added tests in t/db_dependent/Circulation_transfers.t
>---
> C4/Circulation.pm                      |  6 +++---
> circ/transfer-slip.pl                  |  3 ++-
> t/db_dependent/Circulation_transfers.t | 13 ++++++++++++-
> 3 files changed, 17 insertions(+), 5 deletions(-)
>
>diff --git a/C4/Circulation.pm b/C4/Circulation.pm
>index 639956b..e01165a 100644
>--- a/C4/Circulation.pm
>+++ b/C4/Circulation.pm
>@@ -3617,16 +3617,16 @@ sub ProcessOfflinePayment {
> 
> =head2 TransferSlip
> 
>-  TransferSlip($user_branch, $itemnumber, $to_branch)
>+  TransferSlip($user_branch, $itemnumber, $barcode, $to_branch)
> 
>   Returns letter hash ( see C4::Letters::GetPreparedLetter ) or undef
> 
> =cut
> 
> sub TransferSlip {
>-    my ($branch, $itemnumber, $to_branch) = @_;
>+    my ($branch, $itemnumber, $barcode, $to_branch) = @_;
> 
>-    my $item =  GetItem( $itemnumber )
>+    my $item =  GetItem( $itemnumber, $barcode )
>       or return;
> 
>     my $pulldate = C4::Dates->new();
>diff --git a/circ/transfer-slip.pl b/circ/transfer-slip.pl
>index c8e97a0..c6077d4 100755
>--- a/circ/transfer-slip.pl
>+++ b/circ/transfer-slip.pl
>@@ -38,6 +38,7 @@ my $sessionID = $input->cookie("CGISESSID");
> my $session = get_session($sessionID);
> 
> my $itemnumber = $input->param('transferitem');
>+my $barcode    = $input->param('barcode');
> my $branchcode = $input->param('branchcode');
> 
> my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
>@@ -54,7 +55,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
> 
> my $userenv = C4::Context->userenv;
> my ($slip, $is_html);
>-if ( my $letter = TransferSlip ($session->param('branch') || $userenv->{branch}, $itemnumber, $branchcode) ) {
>+if ( my $letter = TransferSlip ($session->param('branch') || $userenv->{branch}, $itemnumber, $barcode, $branchcode) ) {
>     $slip = $letter->{content};
>     $is_html = $letter->{is_html};
> }
>diff --git a/t/db_dependent/Circulation_transfers.t b/t/db_dependent/Circulation_transfers.t
>index 25e720a..0c92222 100644
>--- a/t/db_dependent/Circulation_transfers.t
>+++ b/t/db_dependent/Circulation_transfers.t
>@@ -9,7 +9,7 @@ use C4::Circulation;
> use Koha::DateUtils;
> use DateTime::Duration;
> 
>-use Test::More tests => 19;
>+use Test::More tests => 22;
> use Test::Deep;
> 
> BEGIN {
>@@ -198,5 +198,16 @@ is( C4::Circulation::DeleteTransfer($item_id1),
> is(C4::Circulation::DeleteTransfer(),undef,"Without itemid DeleteTransfer returns undef");
> is(C4::Circulation::DeleteTransfer(-1),'0E0',"with a wrong itemid DeleteTranfer returns 0E0");
> 
>+#Test TransferSlip
>+is( C4::Circulation::TransferSlip($samplebranch1->{branchcode}, undef, 5, $samplebranch2->{branchcode}),
>+    undef, "No tranferslip if invalid or undef itemnumber or barcode" );
>+is( C4::Circulation::TransferSlip($samplebranch1->{branchcode}, $item_id1, 1, $samplebranch2->{branchcode})->{'code'},
>+    'TRANSFERSLIP', "Get a transferslip on valid itemnumber and/or barcode" );
>+cmp_deeply(
>+    C4::Circulation::TransferSlip($samplebranch1->{branchcode}, $item_id1, undef, $samplebranch2->{branchcode}),
>+    C4::Circulation::TransferSlip($samplebranch1->{branchcode}, undef, 1, $samplebranch2->{branchcode}),
>+    "Barcode and itemnumber for same item both generate same TransferSlip"
>+    );
>+
> #End transaction
> $dbh->rollback;
>-- 
>1.9.1

Actions: View | Diff | Splinter Review

Attachments on bug 12122: 27398 | 27399 | 27614 | 28000 | 33601