|
Lines 26-31
package C4::Reserves;
Link Here
|
| 26 |
use strict; |
26 |
use strict; |
| 27 |
use C4::Context; |
27 |
use C4::Context; |
| 28 |
use C4::Biblio; |
28 |
use C4::Biblio; |
|
|
29 |
use C4::Members; |
| 29 |
use C4::Items; |
30 |
use C4::Items; |
| 30 |
use C4::Search; |
31 |
use C4::Search; |
| 31 |
use C4::Circulation; |
32 |
use C4::Circulation; |
|
Lines 170-175
sub AddReserve {
Link Here
|
| 170 |
$found, $waitingdate |
171 |
$found, $waitingdate |
| 171 |
); |
172 |
); |
| 172 |
|
173 |
|
|
|
174 |
# Send e-mail to librarian if syspref is active |
| 175 |
if(C4::Context->preference("emailLibrarianWhenHoldIsPlaced")){ |
| 176 |
my $borrower = GetMemberDetails($borrowernumber); |
| 177 |
my $biblio = GetBiblioData($biblionumber); |
| 178 |
my $letter = C4::Letters::getletter( 'reserves', 'HOLDPLACED'); |
| 179 |
my $admin_email_address = C4::Context->preference('KohaAdminEmailAddress'); |
| 180 |
|
| 181 |
my %keys = (%$borrower, %$biblio); |
| 182 |
foreach my $key (keys %keys) { |
| 183 |
my $replacefield = "<<$key>>"; |
| 184 |
$letter->{content} =~ s/$replacefield/$keys{$key}/g; |
| 185 |
$letter->{title} =~ s/$replacefield/$keys{$key}/g; |
| 186 |
} |
| 187 |
|
| 188 |
C4::Letters::EnqueueLetter( |
| 189 |
{ letter => $letter, |
| 190 |
borrowernumber => $borrowernumber, |
| 191 |
message_transport_type => 'email', |
| 192 |
from_address => $admin_email_address, |
| 193 |
to_address => $admin_email_address, |
| 194 |
} |
| 195 |
); |
| 196 |
|
| 197 |
|
| 198 |
} |
| 199 |
|
| 200 |
|
| 173 |
#} |
201 |
#} |
| 174 |
($const eq "o" || $const eq "e") or return; # FIXME: why not have a useful return value? |
202 |
($const eq "o" || $const eq "e") or return; # FIXME: why not have a useful return value? |
| 175 |
$query = qq/ |
203 |
$query = qq/ |
|
Lines 182-187
sub AddReserve {
Link Here
|
| 182 |
foreach (@$bibitems) { |
210 |
foreach (@$bibitems) { |
| 183 |
$sth->execute($borrowernumber, $biblionumber, $resdate, $_); |
211 |
$sth->execute($borrowernumber, $biblionumber, $resdate, $_); |
| 184 |
} |
212 |
} |
|
|
213 |
|
| 185 |
return; # FIXME: why not have a useful return value? |
214 |
return; # FIXME: why not have a useful return value? |
| 186 |
} |
215 |
} |
| 187 |
|
216 |
|