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