View | Details | Raw Unified | Return to bug 3242
Collapse All | Expand All

(-)a/C4/Reserves.pm (+29 lines)
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
(-)a/installer/data/mysql/updatedatabase30.pl (-1 / +7 lines)
Lines 338-343 if (C4::Context->preference("Version") < TransformToNum($DBversion)) { Link Here
338
    SetVersion ($DBversion);
338
    SetVersion ($DBversion);
339
}
339
}
340
340
341
$DBversion = '3.00.03.001';
342
if (C4::Context->preference('Version') < TransformToNum($DBversion)){
343
    $dbh->do("
344
        INSERT INTO `letter` (module, code, name, title, content)         VALUES('reserves', 'HOLDPLACED', 'Hold Placed on Item', 'Hold Placed on Item','An hold has been placed on the following item : <<title>> (<<biblionumber>>) by the user <<firstname>> <<surname>> (<<cardnumber>>).');
345
    ");
346
}
347
341
=item DropAllForeignKeys($table)
348
=item DropAllForeignKeys($table)
342
349
343
  Drop all foreign keys of the table $table
350
  Drop all foreign keys of the table $table
344
- 

Return to bug 3242