logic error on bool test
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 24 Aug 2006 15:17:17 +0000 (15:17 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 24 Aug 2006 15:17:17 +0000 (15:17 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5654 dcc99617-32d9-48b4-a31d-7c20da2025e4

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

index 88259f2..b6ed045 100644 (file)
@@ -171,7 +171,7 @@ sub hold_ok {
 # return true if the card provided is marked as lost
 sub card_lost {
     my $self = shift;
-        return $self->{user}->card->active eq 't';
+        return $self->{user}->card->active eq 'f';
 }
 
 sub recall_overdue {