From d0809aead356940143d615360a964661acf865d5 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Sat, 29 Jul 2006 22:39:55 +0000
Subject: [PATCH] added inet_privileges method which returns string
 representation

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5169 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
index 17dc6f83b4..5e900c2a86 100644
--- 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;
-- 
2.43.2