Attachment 83388 Details for Bug 5770 – Bug 5770: Email librarian when purchase suggestion made

[patch] Bug 5770: Email librarian when purchase suggestion made

Bug-5770-Email-librarian-when-purchase-suggestion-.patch (text/plain), 1.99 KB, created by Devinim on 2018-12-19 13:38:17 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Devinim

Created: 2018-12-19 13:38:17 UTC

Size: 1.99 KB

patch

obsolete

>From 7f6f2579ef045ad1c6d1cfad3f520c5f6c6ff5b1 Mon Sep 17 00:00:00 2001
>From: =?UTF-8?q?Nazl=C4=B1=20=C3=87etin?= <nazli@devinim.com.tr>
>Date: Wed, 19 Dec 2018 13:36:58 +0000
>Subject: [PATCH] Bug 5770: Email librarian when purchase suggestion made
>
>---
> C4/Suggestions.pm | 33 ++++++++++++++++++++++++++++++++-
> 1 file changed, 32 insertions(+), 1 deletion(-)
>
>diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm
>index 70b7b0de020..0aba6a6f831 100644
>--- a/C4/Suggestions.pm
>+++ b/C4/Suggestions.pm
>@@ -454,7 +454,38 @@ sub NewSuggestion {
>     $suggestion->{suggesteddate} = dt_from_string unless $suggestion->{suggesteddate};
> 
>     my $rs = Koha::Database->new->schema->resultset('Suggestion');
>-    return $rs->create($suggestion)->id;
>+    my $new_id = $rs->create($suggestion)->id;
>+
>+    my $full_suggestion = GetSuggestion( $new_id );
>+    if (
>+        my $letter = C4::Letters::GetPreparedLetter(
>+            module      => 'suggestions',
>+            letter_code => 'NEW_SUGGESTION',
>+            tables      => {
>+                'branches'    => $full_suggestion->{branchcode},
>+                'borrowers'   => $full_suggestion->{suggestedby},
>+                'suggestions' => $full_suggestion,
>+            },
>+        )
>+    ){
>+        my $emailpurchasesuggestions = C4::Context->preference("EmailPurchaseSuggestions");
>+
>+        my $toaddress = ( $emailpurchasesuggestions eq "BranchEmailAddress" )
>+            ? Koha::Libraries->find($full_suggestion->{branchcode})->branchemail
>+            : C4::Context->preference( $emailpurchasesuggestions ) ;
>+
>+        C4::Letters::EnqueueLetter(
>+            {
>+                letter         => $letter,
>+                borrowernumber => $full_suggestion->{suggestedby},
>+                suggestionid   => $full_suggestion->{suggestionid},
>+                to_address     => $toaddress,
>+                message_transport_type => 'email',
>+            }
>+        ) or warn "can't enqueue letter $letter";
>+    }
>+
>+    return $new_id;
> }
> 
> =head2 ModSuggestion
>-- 
>2.11.0

Actions: View | Diff | Splinter Review

Attachments on bug 5770: 83384 | 83385 | 83386 | 83387 | 83388 | 83390 | 83615 | 83616 | 83617 | 84463 | 84812 | 89139 | 89140 | 89141 | 89142 | 89144 | 89145 | 89146 | 89147 | 89188 | 89189 | 89190 | 89191 | 89192 | 89193 | 89194 | 89195