Online Renewal - Remove old subroutines we don't use

Signed-off-by: Terran McCanna <tmccanna@georgialibraries.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
index a230855..b51230f 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
@@ -271,20 +271,6 @@ sub compile_response {
     return Apache2::Const::OK;
 }
 
-#Do we need to change this line if usrname and passwd do not exist in
-#renewal api object?
-#Do we even need to do this at all? I don't see that we're calling it
-my %keep_case = (usrname => 1, passwd => 1, email => 1);
-sub upperclense {
-    my $self = shift;
-    my $field = shift;
-    my $value = shift;
-    $value = uc($value) unless $keep_case{$field};
-    $value = lc($value) if $field eq 'email'; # force it
-    $value =~ s/(^\s*|\s*$)//g;
-    return $value;
-}
-
 # Create actor.usr perl object and populate column data
 sub make_user {
     my $self = shift;
@@ -474,16 +460,6 @@ sub verify_dob {
     return 1;
 }
 
-# returns true if the addresses contain all of the same values.
-sub addrs_match {
-    my ($self, $addr1, $addr2) = @_;
-    for my $field ($addr1->real_fields) {
-        return 0 if ($addr1->$field() || '') ne ($addr2->$field() || '');
-    }
-    return 1;
-}
-
-
 sub add_addresses {
     my $self = shift;
     my $cgi = $self->cgi;