Add stub methods sip_birthdate and ptype, to support Envisionware

terminals (and probably others).

diff --git a/ILS/Patron.pm b/ILS/Patron.pm
index 6affa67..35166dd 100644 (file)
--- a/ILS/Patron.pm
+++ b/ILS/Patron.pm
@@ -25,6 +25,8 @@ our %patron_db = (
                      name => "David J. Fiander",
                      id => 'djfiander',
                      password => '6789',
+                     ptype => 'A', # 'A'dult.  Whatever.
+                     sip_birthdate => '1964-09-25',
                      address => '2 Meadowvale Dr. St Thomas, ON',
                      home_phone => '(519) 555 1234',
                      email_addr => 'djfiander@hotmail.com',
@@ -100,6 +102,18 @@ sub home_phone {
     return $self->{home_phone};
 }
 
+sub sip_birthdate {
+    my $self = shift;
+
+    return $self->{birthdate};
+}
+
+sub ptype {
+    my $self = shift;
+
+    return $self->{ptype};
+}
+
 sub language {
     my $self = shift;