Attachment #111313 for bug #26618

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




use Koha::Database;

use DBI;
use Try::Tiny;
use Data::Dumper;

use vars qw(@ISA @EXPORT);



 Output:
   $success: 1 if all database operations were successful, 0 otherwise
   $messages: Arrayref of messages for user feedback
   $errorMessage: English description of error

=cut


                        colBranchcode = ? 
                        WHERE colId = ?"
    );
    $sth->execute( $colBranchcode, $colId ) or return 0;
    my $to_library = Koha::Libraries->find( $colBranchcode );

    $sth = $dbh->prepare(q{
        SELECT items.itemnumber, items.barcode FROM collections_tracking

        WHERE issues.borrowernumber IS NULL
          AND collections_tracking.colId = ?
    });
    $sth->execute($colId) or return 0;
    my $messages;
    while ( my $item = $sth->fetchrow_hashref ) {
        my $item_object = Koha::Items->find( $item->{itemnumber} );
        try {
            $item_object->request_transfer(
                {
                    to            => $to_library,
                    reason        => 'RotatingCollection',
                    ignore_limits => 0
                }
            );    # Request transfer
        }
        catch {
            if ( $_->isa('Koha::Exceptions::Item::Transfer::Found') ) {
                my $exception      = $_;
                my $found_transfer = $_->transfer;
                if (   $found_transfer->in_transit
                    || $found_transfer->reason eq 'Reserve' )
                {
                    my $transfer = $item_object->request_transfer(
                        {
                            to            => $to_library,
                            reason        => "RotatingCollection",
                            ignore_limits => 0,
                            enqueue       => 1
                        }
                    );    # Queue transfer
                    push @{$messages},
                      {
                        type           => 'enqueu',
                        item           => $item_object,
                        found_transfer => $found_transfer
                      };
                }
                else {
                    my $transfer = $item_object->request_transfer(
                        {
                            to            => $to_library,
                            reason        => "RotatingCollection",
                            ignore_limits => 0,
                            replace       => 1
                        }
                    );    # Replace transfer
                    # NOTE: If we just replaced a StockRotationAdvance, 
                    # it will get enqueued afresh on the next cron run
                }
            }
            elsif ( $_->isa('Koha::Exceptions::Item::Transfer::Limit') ) {
                push @{$messages}, { type => 'failure', item => $item_object };
            }
            else {
                $_->rethrow();
            }
        };
    }

    return (1, $messages);
}

=head2 GetCollectionItemBranches





                <h1>Transfer collection <em>[% colTitle | html %]</em></h1>

                [% IF ( messages ) %]
                    [% FOREACH message IN messages %]
                        [%- SWITCH message.type -%]
                            [%- CASE 'failure' %]
                            <div class="dialog error">
                                <p>Cannot transfer item [% message.item.itemnumber | html %] due to transfer limits</p>            
                            </div>
                            [%- CASE 'enqueu' -%]
                            <div class="dialog message">
                                <p>Item [% message.item.itemnumber %] queued behind transfer to [% message.found_transfer.to | html %]</p>            
                            </div>
                       [% END %]
                    [% END %]
                [% END %]

                [% IF ( transferSuccess ) %]
                    <div class="dialog message">
                        <p>Collection transferred successfully</p>




);

## Transfer collection
my ( $success, $messages );
if ($toBranch) {
    ( $success, $messages) =
      TransferCollection( $colId, $toBranch );

    if ($success) {
        $template->param(
            transferSuccess => 1,
            messages        => $messages
        );
    }
    else {
        $template->param(
            transferFailure => 1,
            messages        => $messages
            errorMessage    => $errorMessage
        );
    }
}
- 

Return to bug 26618

Lines 30-37 use C4::Reserves qw(CheckReserves); Link Here

(-)a/C4/RotatingCollections.pm (-17 / +59 lines)
30	use Koha::Database;	30	use Koha::Database;
31		31
32	use DBI;	32	use DBI;
33		33	use Try::Tiny;
34	use Data::Dumper;
35		34
36	use vars qw(@ISA @EXPORT);	35	use vars qw(@ISA @EXPORT);
37		36
Lines 407-414 Transfers a collection to another branch Link Here
407		406
408	Output:	407	Output:
409	$success: 1 if all database operations were successful, 0 otherwise	408	$success: 1 if all database operations were successful, 0 otherwise
410	$errorCode: Code for reason of failure, good for translating errors in templates	409	$messages: Arrayref of messages for user feedback
411	$errorMessage: English description of error
412		410
413	=cut	411	=cut
414		412
Lines 432-438 sub TransferCollection { Link Here
432	colBranchcode = ?	430	colBranchcode = ?
433	WHERE colId = ?"	431	WHERE colId = ?"
434	);	432	);
435	$sth->execute( $colBranchcode, $colId ) or return ( 0, 4, $sth->errstr() );	433	$sth->execute( $colBranchcode, $colId ) or return 0;
		434	my $to_library = Koha::Libraries->find( $colBranchcode );
436		435
437	$sth = $dbh->prepare(q{	436	$sth = $dbh->prepare(q{
438	SELECT items.itemnumber, items.barcode FROM collections_tracking	437	SELECT items.itemnumber, items.barcode FROM collections_tracking
Lines 441-461 sub TransferCollection { Link Here
441	WHERE issues.borrowernumber IS NULL	440	WHERE issues.borrowernumber IS NULL
442	AND collections_tracking.colId = ?	441	AND collections_tracking.colId = ?
443	});	442	});
444	$sth->execute($colId) or return ( 0, 4, $sth->errstr );	443	$sth->execute($colId) or return 0;
445	my @results;	444	my $messages;
446	while ( my $item = $sth->fetchrow_hashref ) {	445	while ( my $item = $sth->fetchrow_hashref ) {
447	my ($status) = CheckReserves( $item->{itemnumber} );	446	my $item_object = Koha::Items->find( $item->{itemnumber} );
448	my @transfers = C4::Circulation::GetTransfers( $item->{itemnumber} );	447	try {
449	C4::Circulation::transferbook({	448	$item_object->request_transfer(
450	from_branch => $item->holdingbranch,	449	{
451	to_branch => $colBranchcode,	450	to => $to_library,
452	barcode => $item->{barcode},	451	reason => 'RotatingCollection',
453	ignore_reserves => 1,	452	ignore_limits => 0
454	trigger => 'RotatingCollection'	453	}
455	}) unless ( $status eq 'Waiting' \|\| @transfers );	454	); # Request transfer
		455	}
		456	catch {
		457	if ( $_->isa('Koha::Exceptions::Item::Transfer::Found') ) {
		458	my $exception = $_;
		459	my $found_transfer = $_->transfer;
		460	if ( $found_transfer->in_transit
		461	\|\| $found_transfer->reason eq 'Reserve' )
		462	{
		463	my $transfer = $item_object->request_transfer(
		464	{
		465	to => $to_library,
		466	reason => "RotatingCollection",
		467	ignore_limits => 0,
		468	enqueue => 1
		469	}
		470	); # Queue transfer
		471	push @{$messages},
		472	{
		473	type => 'enqueu',
		474	item => $item_object,
		475	found_transfer => $found_transfer
		476	};
		477	}
		478	else {
		479	my $transfer = $item_object->request_transfer(
		480	{
		481	to => $to_library,
		482	reason => "RotatingCollection",
		483	ignore_limits => 0,
		484	replace => 1
		485	}
		486	); # Replace transfer
		487	# NOTE: If we just replaced a StockRotationAdvance,
		488	# it will get enqueued afresh on the next cron run
		489	}
		490	}
		491	elsif ( $_->isa('Koha::Exceptions::Item::Transfer::Limit') ) {
		492	push @{$messages}, { type => 'failure', item => $item_object };
		493	}
		494	else {
		495	$_->rethrow();
		496	}
		497	};
456	}	498	}
457		499
458	return 1;	500	return (1, $messages);
459	}	501	}
460		502
461	=head2 GetCollectionItemBranches	503	=head2 GetCollectionItemBranches

Lines 19-24 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/rotating_collections/transferCollection.tt (+15 lines)
19		19
20	<h1>Transfer collection <em>[% colTitle \| html %]</em></h1>	20	<h1>Transfer collection <em>[% colTitle \| html %]</em></h1>
21		21
		22	[% IF ( messages ) %]
		23	[% FOREACH message IN messages %]
		24	[%- SWITCH message.type -%]
		25	[%- CASE 'failure' %]
		26	<div class="dialog error">
		27	<p>Cannot transfer item [% message.item.itemnumber \| html %] due to transfer limits</p>
		28	</div>
		29	[%- CASE 'enqueu' -%]
		30	<div class="dialog message">
		31	<p>Item [% message.item.itemnumber %] queued behind transfer to [% message.found_transfer.to \| html %]</p>
		32	</div>
		33	[% END %]
		34	[% END %]
		35	[% END %]
		36
22	[% IF ( transferSuccess ) %]	37	[% IF ( transferSuccess ) %]
23	<div class="dialog message">	38	<div class="dialog message">
24	<p>Collection transferred successfully</p>	39	<p>Collection transferred successfully</p>

Lines 41-59 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here

(-)a/rotating_collections/transferCollection.pl (-6 / +7 lines)
41	);	41	);
42		42
43	## Transfer collection	43	## Transfer collection
44	my ( $success, $errorCode, $errorMessage );	44	my ( $success, $messages );
45	if ($toBranch) {	45	if ($toBranch) {
46	( $success, $errorCode, $errorMessage ) =	46	( $success, $messages) =
47	TransferCollection( $colId, $toBranch );	47	TransferCollection( $colId, $toBranch );
48		48
49	if ($success) {	49	if ($success) {
50	$template->param( transferSuccess => 1 );	50	$template->param(
		51	transferSuccess => 1,
		52	messages => $messages
		53	);
51	}	54	}
52	else {	55	else {
53	$template->param(	56	$template->param(
54	transferFailure => 1,	57	transferFailure => 1,
55	errorCode => $errorCode,	58	messages => $messages
56	errorMessage => $errorMessage
57	);	59	);
58	}	60	}
59	}	61	}
60	-