From c94f0001b93cf24993cd5442f93a38985c7d57ba Mon Sep 17 00:00:00 2001
From: Martin Michlmayr <tbm@cyrius.com>
Date: Thu, 5 May 2016 17:27:48 -0700
Subject: [PATCH] Indicate if there's no existing preferred email address

Show "(none)" when there's no existing preferred email address instead
of an unitialized variable warning.
---
 scripts/add-email-address.plx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/add-email-address.plx b/scripts/add-email-address.plx
index 21608b3..4947621 100644
--- a/scripts/add-email-address.plx
+++ b/scripts/add-email-address.plx
@@ -39,7 +39,7 @@ my $sp = new Supporters($dbh, [ "none" ]);
 
 $sp->addEmailAddress($supporterId, $email, $emailType);
 
-print "Preferred email address was: ", $sp->getPreferredEmailAddress($supporterId), "\n";
+print "Preferred email address was: ", $sp->getPreferredEmailAddress($supporterId) || "(none)", "\n";
 if ($preferred) {
   $sp->setPreferredEmailAddress($supporterId, $email);
     print "Preferred email address is now: ", $sp->getPreferredEmailAddress($supporterId), "\n";