|
Lines 194-200
sub AddReserve {
Link Here
|
| 194 |
my $borrower = C4::Members::GetMember(borrowernumber => $borrowernumber); |
194 |
my $borrower = C4::Members::GetMember(borrowernumber => $borrowernumber); |
| 195 |
my $biblio = GetBiblioData($biblionumber); |
195 |
my $biblio = GetBiblioData($biblionumber); |
| 196 |
my $letter = C4::Letters::getletter( 'reserves', 'HOLDPLACED'); |
196 |
my $letter = C4::Letters::getletter( 'reserves', 'HOLDPLACED'); |
| 197 |
my $admin_email_address = C4::Context->preference('KohaAdminEmailAddress'); |
197 |
my $branchcode = $borrower->{branchcode}; |
|
|
198 |
my $branch_details = C4::Branch::GetBranchDetail($branchcode); |
| 199 |
my $admin_email_address =$branch_details->{'branchemail'} || C4::Context->preference('KohaAdminEmailAddress'); |
| 198 |
|
200 |
|
| 199 |
my %keys = (%$borrower, %$biblio); |
201 |
my %keys = (%$borrower, %$biblio); |
| 200 |
foreach my $key (keys %keys) { |
202 |
foreach my $key (keys %keys) { |
| 201 |
- |
|
|