added inet_privileges method which returns string representation

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5169 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
index 17dc6f8..5e900c2 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
+++ b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
@@ -25,6 +25,8 @@ our (@ISA, @EXPORT_OK);
 
 @EXPORT_OK = qw(invalid_patron);
 
+my $INET_PRIVS;
+
 sub new {
     my ($class, $patron_id) = @_;
     my $type = ref($class) || $class;
@@ -75,6 +77,7 @@ sub new {
        syslog("LOG_DEBUG", "new OpenILS Patron(%s): found patron : barred=%s, card:active=%s", 
                $patron_id, $self->{user}->barred, $self->{user}->card->active );
 
+
        bless $self, $type;
        return $self;
 }
@@ -483,4 +486,13 @@ sub charge_denied {
     return "Please contact library staff";
 }
 
+sub inet_privileges {
+       my( $self ) = @_;
+       my $e = OpenILS::SIP->editor();
+       $INET_PRIVS = $e->retrieve_all_config_net_access_level() unless $INET_PRIVS;
+       my ($level) = grep { $_->id eq $self->{user}->net_access_level } @$INET_PRIVS;
+       return $level->name;
+}
+
+
 1;