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

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

Return to bug 9343