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

(-)a/C4/Suggestions.pm (-2 / +32 lines)
Lines 454-460 sub NewSuggestion { Link Here
454
    $suggestion->{suggesteddate} = dt_from_string unless $suggestion->{suggesteddate};
454
    $suggestion->{suggesteddate} = dt_from_string unless $suggestion->{suggesteddate};
455
455
456
    my $rs = Koha::Database->new->schema->resultset('Suggestion');
456
    my $rs = Koha::Database->new->schema->resultset('Suggestion');
457
    return $rs->create($suggestion)->id;
457
    my $new_id = $rs->create($suggestion)->id;
458
459
    my $full_suggestion = GetSuggestion( $new_id );
460
    if (
461
        my $letter = C4::Letters::GetPreparedLetter(
462
            module      => 'suggestions',
463
            letter_code => 'NEW_SUGGESTION',
464
            tables      => {
465
                'branches'    => $full_suggestion->{branchcode},
466
                'borrowers'   => $full_suggestion->{suggestedby},
467
                'suggestions' => $full_suggestion,
468
            },
469
        )
470
    ){
471
        my $emailpurchasesuggestions = C4::Context->preference("EmailPurchaseSuggestions");
472
473
        my $toaddress = ( $emailpurchasesuggestions eq "BranchEmailAddress" )
474
            ? Koha::Libraries->find($full_suggestion->{branchcode})->branchemail
475
            : C4::Context->preference( $emailpurchasesuggestions ) ;
476
477
        C4::Letters::EnqueueLetter(
478
            {
479
                letter         => $letter,
480
                borrowernumber => $full_suggestion->{suggestedby},
481
                suggestionid   => $full_suggestion->{suggestionid},
482
                to_address     => $toaddress,
483
                message_transport_type => 'email',
484
            }
485
        ) or warn "can't enqueue letter $letter";
486
    }
487
488
    return $new_id;
458
}
489
}
459
490
460
=head2 ModSuggestion
491
=head2 ModSuggestion
461
- 

Return to bug 5770