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