[Koha-patches] [PATCH] bug 341: Use the Right Branch
Daniel Sweeney
daniel.sweeney at liblime.com
Tue Feb 3 23:02:14 CET 2009
From: John Beppu <john.beppu at liblime.com>
When sending circulation alerts, use the branch that the
event happened on instead of $item->{homebranch}.
Signed-off-by: Daniel Sweeney <daniel.sweeney at liblime.com>
---
C4/Circulation.pm | 12 ++++++++++--
1 files changed, 10 insertions(+), 2 deletions(-)
diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index d22e28c..e4019a4 100644
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@@ -1032,6 +1032,7 @@ sub AddIssue {
type => 'CHECKOUT',
item => $item,
borrower => $borrower,
+ branch => $branch,
});
}
}
@@ -1531,6 +1532,7 @@ sub AddReturn {
type => 'CHECKIN',
item => $iteminformation,
borrower => $borrower,
+ branch => $branch,
});
}
@@ -2380,6 +2382,10 @@ Hashref of information about the item being checked in or out.
Hashref of information about the borrower of the item.
+=item branch
+
+The branchcode from where the checkout or check-in took place.
+
=back
B<Example>:
@@ -2388,13 +2394,15 @@ B<Example>:
type => 'CHECKOUT',
item => $item,
borrower => $borrower,
+ branch => $branch,
});
=cut
sub SendCirculationAlert {
my ($opts) = @_;
- my ($type, $item, $borrower) = ($opts->{type}, $opts->{item}, $opts->{borrower});
+ my ($type, $item, $borrower, $branch) =
+ ($opts->{type}, $opts->{item}, $opts->{borrower}, $opts->{branch});
my %message_name = (
CHECKIN => 'Item Check-in',
CHECKOUT => 'Item Checkout',
@@ -2407,7 +2415,7 @@ sub SendCirculationAlert {
C4::Letters::parseletter($letter, 'biblio', $item->{biblionumber});
C4::Letters::parseletter($letter, 'biblioitems', $item->{biblionumber});
C4::Letters::parseletter($letter, 'borrowers', $borrower->{borrowernumber});
- C4::Letters::parseletter($letter, 'branches', $item->{homebranch});
+ C4::Letters::parseletter($letter, 'branches', $branch);
my @transports = @{ $borrower_preferences->{transports} };
# warn "no transports" unless @transports;
for (@transports) {
--
1.5.5.GIT
More information about the Koha-patches
mailing list