From bfc13ab427998b7c0e25cc3e55df3334a86c8d93 Mon Sep 17 00:00:00 2001 From: Terran McCanna Date: Mon, 29 Aug 2022 14:49:31 -0400 Subject: [PATCH] Online Renewal - Remove old subroutines we don't use Signed-off-by: Terran McCanna --- .../perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm | 24 ---------------------- 1 file changed, 24 deletions(-) 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 a230855f02..b51230f33f 100644 --- 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; -- 2.11.0