View | Details | Raw Unified | Return to bug 12122
Collapse All | Expand All

(-)a/C4/Circulation.pm (-2 / +2 lines)
Lines 3594-3602 sub ProcessOfflinePayment { Link Here
3594
=cut
3594
=cut
3595
3595
3596
sub TransferSlip {
3596
sub TransferSlip {
3597
    my ($branch, $itemnumber, $to_branch) = @_;
3597
    my ($branch, $itemnumber, $barcode, $to_branch) = @_;
3598
3598
3599
    my $item =  GetItem( $itemnumber )
3599
    my $item =  GetItem( $itemnumber, $barcode )
3600
      or return;
3600
      or return;
3601
3601
3602
    my $pulldate = C4::Dates->new();
3602
    my $pulldate = C4::Dates->new();
(-)a/circ/transfer-slip.pl (-2 / +2 lines)
Lines 38-43 my $sessionID = $input->cookie("CGISESSID"); Link Here
38
my $session = get_session($sessionID);
38
my $session = get_session($sessionID);
39
39
40
my $itemnumber = $input->param('transferitem');
40
my $itemnumber = $input->param('transferitem');
41
my $barcode    = $input->param('barcode');
41
my $branchcode = $input->param('branchcode');
42
my $branchcode = $input->param('branchcode');
42
43
43
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
44
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Lines 54-60 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
54
55
55
my $userenv = C4::Context->userenv;
56
my $userenv = C4::Context->userenv;
56
my ($slip, $is_html);
57
my ($slip, $is_html);
57
if ( my $letter = TransferSlip ($session->param('branch') || $userenv->{branch}, $itemnumber, $branchcode) ) {
58
if ( my $letter = TransferSlip ($session->param('branch') || $userenv->{branch}, $itemnumber, $barcode, $branchcode) ) {
58
    $slip = $letter->{content};
59
    $slip = $letter->{content};
59
    $is_html = $letter->{is_html};
60
    $is_html = $letter->{is_html};
60
}
61
}
61
- 

Return to bug 12122