|
Lines 433-439
sub build_patron_status {
Link Here
|
| 433 |
$password_rc = $patron->check_password($patron_pwd); |
433 |
$password_rc = $patron->check_password($patron_pwd); |
| 434 |
} |
434 |
} |
| 435 |
|
435 |
|
| 436 |
$resp .= patron_status_string($patron); |
436 |
$resp .= patron_status_string( $patron, $server ); |
| 437 |
$resp .= $lang . timestamp(); |
437 |
$resp .= $lang . timestamp(); |
| 438 |
if ( defined $server->{account}->{ae_field_template} ) { |
438 |
if ( defined $server->{account}->{ae_field_template} ) { |
| 439 |
$resp .= add_field( FID_PERSONAL_NAME, $patron->format( $server->{account}->{ae_field_template}, $server ) ); |
439 |
$resp .= add_field( FID_PERSONAL_NAME, $patron->format( $server->{account}->{ae_field_template}, $server ) ); |
|
Lines 969-975
sub handle_patron_info {
Link Here
|
| 969 |
$resp = (PATRON_INFO_RESP); |
969 |
$resp = (PATRON_INFO_RESP); |
| 970 |
if ($patron) { |
970 |
if ($patron) { |
| 971 |
$patron->update_lastseen(); |
971 |
$patron->update_lastseen(); |
| 972 |
$resp .= patron_status_string($patron); |
972 |
$resp .= patron_status_string( $patron, $server ); |
| 973 |
$resp .= ( defined($lang) and length($lang) == 3 ) ? $lang : $patron->language; |
973 |
$resp .= ( defined($lang) and length($lang) == 3 ) ? $lang : $patron->language; |
| 974 |
$resp .= timestamp(); |
974 |
$resp .= timestamp(); |
| 975 |
|
975 |
|
|
Lines 1337-1343
sub handle_patron_enable {
Link Here
|
| 1337 |
# Don't enable the patron if there was an invalid password |
1337 |
# Don't enable the patron if there was an invalid password |
| 1338 |
$status = $patron->enable; |
1338 |
$status = $patron->enable; |
| 1339 |
} |
1339 |
} |
| 1340 |
$resp .= patron_status_string($patron); |
1340 |
$resp .= patron_status_string( $patron, $server ); |
| 1341 |
$resp .= $patron->language . timestamp(); |
1341 |
$resp .= $patron->language . timestamp(); |
| 1342 |
|
1342 |
|
| 1343 |
$resp .= add_field( FID_PATRON_ID, $patron->id, $server ); |
1343 |
$resp .= add_field( FID_PATRON_ID, $patron->id, $server ); |
|
Lines 1663-1668
sub send_acs_status {
Link Here
|
| 1663 |
# |
1663 |
# |
| 1664 |
sub patron_status_string { |
1664 |
sub patron_status_string { |
| 1665 |
my $patron = shift; |
1665 |
my $patron = shift; |
|
|
1666 |
my $server = shift; |
| 1667 |
|
| 1666 |
my $patron_status; |
1668 |
my $patron_status; |
| 1667 |
|
1669 |
|
| 1668 |
siplog( "LOG_DEBUG", "patron_status_string: %s charge_ok: %s", $patron->id, $patron->charge_ok ); |
1670 |
siplog( "LOG_DEBUG", "patron_status_string: %s charge_ok: %s", $patron->id, $patron->charge_ok ); |
|
Lines 1674-1680
sub patron_status_string {
Link Here
|
| 1674 |
denied( $patron->hold_ok ), |
1676 |
denied( $patron->hold_ok ), |
| 1675 |
boolspace( $patron->card_lost ), |
1677 |
boolspace( $patron->card_lost ), |
| 1676 |
boolspace( $patron->too_many_charged ), |
1678 |
boolspace( $patron->too_many_charged ), |
| 1677 |
boolspace( $patron->too_many_overdue ), |
1679 |
$server->{account}->{disable_too_many_overdue} ? q{ } : boolspace( $patron->too_many_overdue ), |
| 1678 |
boolspace( $patron->too_many_renewal ), |
1680 |
boolspace( $patron->too_many_renewal ), |
| 1679 |
boolspace( $patron->too_many_claim_return ), |
1681 |
boolspace( $patron->too_many_claim_return ), |
| 1680 |
boolspace( $patron->too_many_lost ), |
1682 |
boolspace( $patron->too_many_lost ), |