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

(-)a/C4/Letters.pm (-2 / +1 lines)
Lines 255-261 sub findrelatedto ($$) { Link Here
255
sub SendAlerts {
255
sub SendAlerts {
256
    my ( $type, $externalid, $letter_code ) = @_;
256
    my ( $type, $externalid, $letter_code ) = @_;
257
    my $dbh = C4::Context->dbh;
257
    my $dbh = C4::Context->dbh;
258
    my $strsth;
259
    if ( $type eq 'issue' ) {
258
    if ( $type eq 'issue' ) {
260
259
261
        # prepare the letter...
260
        # prepare the letter...
Lines 306-312 sub SendAlerts { Link Here
306
305
307
        # prepare the letter...
306
        # prepare the letter...
308
        # search the biblionumber
307
        # search the biblionumber
309
        $strsth =  $type eq 'claimacquisition'
308
        my $strsth =  $type eq 'claimacquisition'
310
            ? qq{
309
            ? qq{
311
            SELECT aqorders.*,aqbasket.*,biblio.*,biblioitems.*,aqbooksellers.*
310
            SELECT aqorders.*,aqbasket.*,biblio.*,biblioitems.*,aqbooksellers.*
312
            FROM aqorders
311
            FROM aqorders
(-)a/tools/letter.pl (-2 / +1 lines)
Lines 325-331 sub default_display { Link Here
325
    my $loop_data = [];
325
    my $loop_data = [];
326
    my $protected_letters = protected_letters();
326
    my $protected_letters = protected_letters();
327
    foreach my $row (@{$results}) {
327
    foreach my $row (@{$results}) {
328
        $row->{protected} = $protected_letters->{ $row->{code}};
328
        $row->{protected} = !$row->{branchcode} && $protected_letters->{ $row->{code} };
329
        push @{$loop_data}, $row;
329
        push @{$loop_data}, $row;
330
330
331
    }
331
    }
332
- 

Return to bug 7001