From 0a76d92241f934557f6b06606964a478a5aa7311 Mon Sep 17 00:00:00 2001 From: atz Date: Thu, 30 Sep 2010 23:06:39 +0000 Subject: [PATCH] Silence warning Warnings was: Use of uninitialized value in subroutine entry at /openils/lib/perl5/OpenILS/SIP/Patron.pm line 230. Signed-off-by: Joe Atzberger git-svn-id: svn://svn.open-ils.org/ILS/trunk@18111 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm index 1933a93207..c435bc0af6 100644 --- a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm +++ b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm @@ -221,20 +221,19 @@ sub card_lost { return $self->{user}->card->active eq 'f'; } -sub recall_overdue { +sub recall_overdue { # not implemented my $self = shift; return 0; } - sub check_password { my ($self, $pwd) = @_; syslog('LOG_DEBUG', 'OILS: Patron->check_password()'); - return $pwd and (md5_hex($pwd) eq $self->{user}->passwd); + return 0 unless (defined $pwd and $self->{user}); + return md5_hex($pwd) eq $self->{user}->passwd; } - -sub currency { +sub currency { # not really implemented my $self = shift; syslog('LOG_DEBUG', 'OILS: Patron->currency()'); return 'USD'; @@ -283,12 +282,12 @@ sub screen_msg { return 'OK'; } -sub print_line { +sub print_line { # not implemented my $self = shift; return ''; } -sub too_many_charged { +sub too_many_charged { # not implemented my $self = shift; return 0; } -- 2.43.2