From e5d35b76675584214bb7dec92f1d48a00067b017 Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Sun, 11 Mar 2012 12:13:15 -0400 Subject: [PATCH] [SIGNED-OFF] Bug 7701: Error when sending serial alerts Probably due to bug 6875, C4::Letters is no longer used by C4::Serials, so that when SendAlerts is called (exactly when this happens is a mystery to me), you will get an error. Adding a "require C4::Letters;" and prefixing SendAlerts to C4::Letters:: should fix it. Signed-off-by: Katrin Fischer Patch fixes the perl error. Steps to reproduce: 1) Create a subscription and set patron notification to "Routling list" - this is necessary, so that a link to email notifications shows up in the OPAC. 2) Search for the serial record in the OPAC and click on the more details view from the subscriptions tab. Subscribe to email notifications. 3) Go back into the serials module and receive and issue for the serial. Before the patch a nasty perl error will be shown, after the patch receiving works. I couldn't confirm that the email was sent out with my setup, but this patch certainly fixes serial receive. --- C4/Serials.pm | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/C4/Serials.pm b/C4/Serials.pm index ba0397c..eeb466b 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -1073,7 +1073,8 @@ sub ModSerialStatus { # check if an alert must be sent... (= a letter is defined & status became "arrived" if ( $val->{letter} && $status == 2 && $oldstatus != 2 ) { - SendAlerts( 'issue', $val->{subscriptionid}, $val->{letter} ); + require C4::Letters; + C4::Leters::SendAlerts( 'issue', $val->{subscriptionid}, $val->{letter} ); } } return; -- 1.7.5.4