From f57ac7d3f04f67191a0c65f944c6532ad72a17f4 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Wed, 30 Dec 2015 18:12:54 -0800
Subject: [PATCH] Remove dead code.

---
 Supporters/lib/Supporters.pm | 27 ---------------------------
 1 file changed, 27 deletions(-)

diff --git a/Supporters/lib/Supporters.pm b/Supporters/lib/Supporters.pm
index 6555c78..79912f6 100644
--- a/Supporters/lib/Supporters.pm
+++ b/Supporters/lib/Supporters.pm
@@ -1480,30 +1480,3 @@ License: AGPLv3-or-later
 # Local variables:
 # compile-command: "perl -c Supporters.pm"
 # End:
-
-
-  sub Supporter_FullLookupUsingId($$) {
-  my($dbh, $id) = @_;
-
-  my $sth = $dbh->prepare('SELECT m.donor_id ' .
-                          'FROM email_address e, donor_email_address_mapping m  ' .
-                          'WHERE e.email_address = ? and e.id = m.email_address_id');
-  $sth->execute($email);
-}
-###############################################################################
-sub Supporter_LookupByEmail($$) {
-  my($dbh, $email) = @_;
-
-  my $sth = $dbh->prepare('SELECT m.donor_id ' .
-                          'FROM email_address e, donor_email_address_mapping m  ' .
-                          'WHERE e.email_address = ? and e.id = m.email_address_id');
-  $sth->execute($email);
-  my $supporter = $sth->fetchrow_hashref();
-
-  if (defined $supporter) {
-    return Supporter_FullLookupUsingId($dbh, $supporter->{'m.donor_id'});
-  } else {
-    return undef;
-  }
-
-