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 |
- |
|
|