Lines 33-39
sub new {
Link Here
|
33 |
my $type = ref($class) || $class; |
33 |
my $type = ref($class) || $class; |
34 |
my $self; |
34 |
my $self; |
35 |
$kp = Koha::Patrons->find( { cardnumber => $patron_id } ) |
35 |
$kp = Koha::Patrons->find( { cardnumber => $patron_id } ) |
36 |
or Koha::Patrons->find( { userid => $patron_id } ); |
36 |
|| Koha::Patrons->find( { userid => $patron_id } ); |
37 |
$debug and warn "new Patron: " . Dumper($kp->unblessed) if $kp; |
37 |
$debug and warn "new Patron: " . Dumper($kp->unblessed) if $kp; |
38 |
unless ($kp) { |
38 |
unless ($kp) { |
39 |
syslog("LOG_DEBUG", "new ILS::Patron(%s): no such patron", $patron_id); |
39 |
syslog("LOG_DEBUG", "new ILS::Patron(%s): no such patron", $patron_id); |
40 |
- |
|
|