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