Lines 37-43
sub new {
Link Here
|
37 |
my ($class, $patron_id) = @_; |
37 |
my ($class, $patron_id) = @_; |
38 |
my $type = ref($class) || $class; |
38 |
my $type = ref($class) || $class; |
39 |
my $self; |
39 |
my $self; |
40 |
$kp = GetMember(cardnumber=>$patron_id); |
40 |
$kp = GetMember(cardnumber=>$patron_id) || GetMember(userid=>$patron_id); |
41 |
$debug and warn "new Patron (GetMember): " . Dumper($kp); |
41 |
$debug and warn "new Patron (GetMember): " . Dumper($kp); |
42 |
unless (defined $kp) { |
42 |
unless (defined $kp) { |
43 |
syslog("LOG_DEBUG", "new ILS::Patron(%s): no such patron", $patron_id); |
43 |
syslog("LOG_DEBUG", "new ILS::Patron(%s): no such patron", $patron_id); |
44 |
- |
|
|