[open-ils-commits] r18118 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP (atz)

[svn at svn.open-ils.org]

Author: atz
Date: 2010-10-01 10:33:48 -0400 (Fri, 01 Oct 2010)
New Revision: 18118

Modified:
   branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
Log:
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 <atz at esilibrary.com>

Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2010-10-01 12:19:49 UTC (rev 18117)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2010-10-01 14:33:48 UTC (rev 18118)
@@ -221,20 +221,19 @@
     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 @@
 	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;
 }