new ILS takes an institution configuration as input, so the name

of the ILS institution is the $institution->{id}

diff --git a/ILS.pm b/ILS.pm
index c0a46e1..db025a1 100644 (file)
--- a/ILS.pm
+++ b/ILS.pm
@@ -31,7 +31,7 @@ sub new {
     my $type = ref($class) || $class;
     my $self = {};
 
-    syslog("DEBUG", "new ILS '$institution'");
+    syslog("DEBUG", "new ILS '%s'", $institution->{id});
     $self->{institution} = $institution;
 
     return bless $self, $type;
@@ -40,7 +40,7 @@ sub new {
 sub institution {
     my $self = shift;
 
-    return $self->{institution};
+    return $self->{institution}->{id};
 }
 
 sub supports {