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