View | Details | Raw Unified | Return to bug 8039
Collapse All | Expand All

(-)a/C4/SIP/ILS/Patron.pm (-2 / +1 lines)
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
- 

Return to bug 8039