|
Lines 2257-2262
sub AddReturn {
Link Here
|
| 2257 |
item => $item->unblessed, |
2257 |
item => $item->unblessed, |
| 2258 |
borrower => $patron->unblessed, |
2258 |
borrower => $patron->unblessed, |
| 2259 |
branch => $branch, |
2259 |
branch => $branch, |
|
|
2260 |
issue => $issue |
| 2260 |
}); |
2261 |
}); |
| 2261 |
} |
2262 |
} |
| 2262 |
|
2263 |
|
|
Lines 3520-3527
B<Example>:
Link Here
|
| 3520 |
|
3521 |
|
| 3521 |
sub SendCirculationAlert { |
3522 |
sub SendCirculationAlert { |
| 3522 |
my ($opts) = @_; |
3523 |
my ($opts) = @_; |
| 3523 |
my ($type, $item, $borrower, $branch) = |
3524 |
my ($type, $item, $borrower, $branch, $issue) = |
| 3524 |
($opts->{type}, $opts->{item}, $opts->{borrower}, $opts->{branch}); |
3525 |
($opts->{type}, $opts->{item}, $opts->{borrower}, $opts->{branch}, $opts->{issue}); |
| 3525 |
my %message_name = ( |
3526 |
my %message_name = ( |
| 3526 |
CHECKIN => 'Item_Check_in', |
3527 |
CHECKIN => 'Item_Check_in', |
| 3527 |
CHECKOUT => 'Item_Checkout', |
3528 |
CHECKOUT => 'Item_Checkout', |
|
Lines 3531-3537
sub SendCirculationAlert {
Link Here
|
| 3531 |
borrowernumber => $borrower->{borrowernumber}, |
3532 |
borrowernumber => $borrower->{borrowernumber}, |
| 3532 |
message_name => $message_name{$type}, |
3533 |
message_name => $message_name{$type}, |
| 3533 |
}); |
3534 |
}); |
| 3534 |
my $issues_table = ( $type eq 'CHECKOUT' || $type eq 'RENEWAL' ) ? 'issues' : 'old_issues'; |
3535 |
my ($issues_table, $issues_id); |
|
|
3536 |
if( $type eq 'CHECKIN' ){ |
| 3537 |
$issues_table = 'old_issues'; |
| 3538 |
$issues_id = $issue->issue_id; |
| 3539 |
} else { |
| 3540 |
$issues_table = 'issues'; |
| 3541 |
$issues_id = $item->{itemnumber}; |
| 3542 |
} |
| 3535 |
|
3543 |
|
| 3536 |
my $schema = Koha::Database->new->schema; |
3544 |
my $schema = Koha::Database->new->schema; |
| 3537 |
my @transports = keys %{ $borrower_preferences->{transports} }; |
3545 |
my @transports = keys %{ $borrower_preferences->{transports} }; |
|
Lines 3550-3556
sub SendCirculationAlert {
Link Here
|
| 3550 |
message_transport_type => $mtt, |
3558 |
message_transport_type => $mtt, |
| 3551 |
lang => $borrower->{lang}, |
3559 |
lang => $borrower->{lang}, |
| 3552 |
tables => { |
3560 |
tables => { |
| 3553 |
$issues_table => $item->{itemnumber}, |
3561 |
$issues_table => $issues_id, |
| 3554 |
'items' => $item->{itemnumber}, |
3562 |
'items' => $item->{itemnumber}, |
| 3555 |
'biblio' => $item->{biblionumber}, |
3563 |
'biblio' => $item->{biblionumber}, |
| 3556 |
'biblioitems' => $item->{biblionumber}, |
3564 |
'biblioitems' => $item->{biblionumber}, |
| 3557 |
- |
|
|