From 22f96c6ebeb77da5efe7285d1980ce705e22726e Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Fri, 16 Aug 2013 07:21:10 -0400
Subject: [PATCH] Bug 10664 [QA Followup] - fix error in overdue_notices.pl if
 there is no active currency

Fixes the following koha-qa.pl error:
 FAIL   misc/cronjobs/overdue_notices.pl
    OK     pod
    OK     forbidden patterns
    OK     valid
    FAIL   critic
               # Variables::ProhibitConditionalDeclarations:

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
(cherry picked from commit e476378323eb8dd31e67e4741d271d88de61b59e)
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
---
 misc/cronjobs/overdue_notices.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl
index 04ccf5a045..0f263c4e11 100755
--- a/misc/cronjobs/overdue_notices.pl
+++ b/misc/cronjobs/overdue_notices.pl
@@ -689,7 +689,8 @@ sub parse_letter {
     }
 
     my $currencies = GetCurrency();
-    my $currency_format = $currencies->{currency} if defined($currencies);
+    my $currency_format;
+    $currency_format = $currencies->{currency} if defined($currencies);
 
     my @item_tables;
     if ( my $i = $params->{'items'} ) {
-- 
2.39.5