Add support necessary for Checkin operation

diff --git a/ILS/Item.pm b/ILS/Item.pm
index a772856..7ca0288 100644 (file)
--- a/ILS/Item.pm
+++ b/ILS/Item.pm
@@ -70,4 +70,10 @@ sub title_id {
     return $self->{title};
 }
 
+sub permanent_location {
+    my $self = shift;
+
+    return $self->{permanent_location} || '';
+}
+
 1;