Beginnings of the Item stub module: support for the Checkout

operation

diff --git a/ILS/Item.pm b/ILS/Item.pm
index 8f6a4b5..a772856 100644 (file)
--- a/ILS/Item.pm
+++ b/ILS/Item.pm
@@ -11,25 +11,63 @@ use strict;
 use warnings;
 use Exporter;
 
+use Sys::Syslog qw(syslog);
+
 our (@ISA, @EXPORT_OK);
 
 @ISA = qw(Exporter);
 
-our %item_db;
+our %item_db = (
+               1565921879 => {
+                   title => "Perl 5 desktop reference",
+                   id => 1565921879,
+                   sip_media_type => '001',
+                   magnetic_media => 0,
+               }
+               );
 
 sub new {
     my ($class, $item_id) = @_;
     my $type = ref($class) || $class;
     my $self;
 
+
     if (!exists($item_db{$item_id})) {
+       syslog("DEBUG", "new ILS::Item('%s'): not found", $item_id);
        return undef;
     }
 
     $self = $item_db{$item_id};
     bless $self, $type;
+
+    syslog("DEBUG", "new ILS::Item('%s'): found with title '%s'",
+          $item_id, $self->{title});
+
     return $self;
 }
 
+sub magnetic {
+    my $self = shift;
+
+    return $self->{magnetic_media};
+}
+
+sub sip_media_type {
+    my $self = shift;
+
+    return $self->{sip_media_type};
+}
+
+sub sip_item_properties {
+    my $self = shift;
+
+    return $self->{sip_item_properties};
+}
+
+sub title_id {
+    my $self = shift;
+
+    return $self->{title};
+}
 
 1;

diff --git a/ILS/Patron.pm b/ILS/Patron.pm
index 2b49774..4ad6d41 100644 (file)
--- a/ILS/Patron.pm
+++ b/ILS/Patron.pm
@@ -35,6 +35,7 @@ our %patron_db = (
                      fees => 0,
                      recall_overdue => 0,
                      items_billed => 0,
+                     items => [],
                  },
                  );