Silence warning
authoratz <atz@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 30 Sep 2010 23:06:39 +0000 (23:06 +0000)
committeratz <atz@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 30 Sep 2010 23:06:39 +0000 (23:06 +0000)
Warnings was:
Use of uninitialized value in subroutine entry at /openils/lib/perl5/OpenILS/SIP/Patron.pm line 230.

Signed-off-by: Joe Atzberger <atz@esilibrary.com>
git-svn-id: svn://svn.open-ils.org/ILS/trunk@18111 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm

index 1933a93..c435bc0 100644 (file)
@@ -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;
 }