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 |
- |
|
|