checking inactive
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 28 Aug 2006 19:33:42 +0000 (19:33 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 28 Aug 2006 19:33:42 +0000 (19:33 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5738 dcc99617-32d9-48b4-a31d-7c20da2025e4

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

index 722a907..8e6431c 100644 (file)
@@ -209,6 +209,8 @@ sub screen_msg {
        return 'barred' if $u->barred eq 't';
 
        my $b = 'blocked';
+
+       return $b if $u->active eq 'f';
        return $b if $u->card->active eq 'f';
 
        if( $u->standing_penalties ) {