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

(-)a/C4/Circulation.pm (-12 / +19 lines)
Lines 2259-2264 sub AddReturn { Link Here
2259
                item     => $item->unblessed,
2259
                item     => $item->unblessed,
2260
                borrower => $patron->unblessed,
2260
                borrower => $patron->unblessed,
2261
                branch   => $branch,
2261
                branch   => $branch,
2262
                issue    => $issue
2262
            });
2263
            });
2263
        }
2264
        }
2264
2265
Lines 3453-3460 B<Example>: Link Here
3453
3454
3454
sub SendCirculationAlert {
3455
sub SendCirculationAlert {
3455
    my ($opts) = @_;
3456
    my ($opts) = @_;
3456
    my ($type, $item, $borrower, $branch) =
3457
    my ($type, $item, $borrower, $branch, $issue) =
3457
        ($opts->{type}, $opts->{item}, $opts->{borrower}, $opts->{branch});
3458
        ($opts->{type}, $opts->{item}, $opts->{borrower}, $opts->{branch}, $opts->{issue});
3458
    my %message_name = (
3459
    my %message_name = (
3459
        CHECKIN  => 'Item_Check_in',
3460
        CHECKIN  => 'Item_Check_in',
3460
        CHECKOUT => 'Item_Checkout',
3461
        CHECKOUT => 'Item_Checkout',
Lines 3464-3470 sub SendCirculationAlert { Link Here
3464
        borrowernumber => $borrower->{borrowernumber},
3465
        borrowernumber => $borrower->{borrowernumber},
3465
        message_name   => $message_name{$type},
3466
        message_name   => $message_name{$type},
3466
    });
3467
    });
3467
    my $issues_table = ( $type eq 'CHECKOUT' || $type eq 'RENEWAL' ) ? 'issues' : 'old_issues';
3468
3469
3470
    my $tables = {
3471
        items => $item->{itemnumber},
3472
        biblio      => $item->{biblionumber},
3473
        biblioitems => $item->{biblionumber},
3474
        borrowers   => $borrower,
3475
        branches    => $branch,
3476
    };
3477
3478
    if( $type eq 'CHECKIN' ){
3479
        $tables->{old_issues} = $issue->issue_id;
3480
    } else {
3481
        $tables->{issues} = $item->{itemnumber};
3482
    }
3468
3483
3469
    my $schema = Koha::Database->new->schema;
3484
    my $schema = Koha::Database->new->schema;
3470
    my @transports = keys %{ $borrower_preferences->{transports} };
3485
    my @transports = keys %{ $borrower_preferences->{transports} };
Lines 3482-3495 sub SendCirculationAlert { Link Here
3482
            branchcode => $branch,
3497
            branchcode => $branch,
3483
            message_transport_type => $mtt,
3498
            message_transport_type => $mtt,
3484
            lang => $borrower->{lang},
3499
            lang => $borrower->{lang},
3485
            tables => {
3500
            tables => $tables,
3486
                $issues_table => $item->{itemnumber},
3487
                'items'       => $item->{itemnumber},
3488
                'biblio'      => $item->{biblionumber},
3489
                'biblioitems' => $item->{biblionumber},
3490
                'borrowers'   => $borrower,
3491
                'branches'    => $branch,
3492
            }
3493
        ) or next;
3501
        ) or next;
3494
3502
3495
        C4::Context->dbh->do(q|LOCK TABLE message_queue READ|) unless $do_not_lock;
3503
        C4::Context->dbh->do(q|LOCK TABLE message_queue READ|) unless $do_not_lock;
3496
- 

Return to bug 29062