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

(-)a/C4/SIP/ILS/Patron.pm (-2 / +1 lines)
Lines 47-53 sub new { Link Here
47
	$debug and warn "new Patron (GetMemberDetails): " . Dumper($kp);
47
	$debug and warn "new Patron (GetMemberDetails): " . Dumper($kp);
48
	my $pw        = $kp->{password};  ### FIXME - md5hash -- deal with . 
48
	my $pw        = $kp->{password};  ### FIXME - md5hash -- deal with . 
49
	my $flags     = $kp->{flags};     # or warn "Warning: No flags from patron object for '$patron_id'"; 
49
	my $flags     = $kp->{flags};     # or warn "Warning: No flags from patron object for '$patron_id'"; 
50
	my $debarred  = $kp->{debarred};  # 1 if ($kp->{flags}->{DBARRED}->{noissues});
50
        my $debarred  = defined($kp->{flags}->{DBARRED});
51
	$debug and warn sprintf("Debarred = %s : ", ($debarred||'undef')) . Dumper(%{$kp->{flags}});
51
	$debug and warn sprintf("Debarred = %s : ", ($debarred||'undef')) . Dumper(%{$kp->{flags}});
52
    my ($day, $month, $year) = (localtime)[3,4,5];
52
    my ($day, $month, $year) = (localtime)[3,4,5];
53
    my $today    = sprintf '%04d-%02d-%02d', $year+1900, $month+1, $day;
53
    my $today    = sprintf '%04d-%02d-%02d', $year+1900, $month+1, $day;
54
- 

Return to bug 9343