Lines 19-24
use Data::Dumper;
Link Here
|
19 |
use CGI qw ( -utf8 ); |
19 |
use CGI qw ( -utf8 ); |
20 |
use C4::Auth qw(&check_api_auth); |
20 |
use C4::Auth qw(&check_api_auth); |
21 |
|
21 |
|
|
|
22 |
use Koha::Patron::Attributes; |
23 |
|
22 |
use UNIVERSAL::can; |
24 |
use UNIVERSAL::can; |
23 |
|
25 |
|
24 |
use vars qw(@ISA @EXPORT_OK); |
26 |
use vars qw(@ISA @EXPORT_OK); |
Lines 443-448
sub build_patron_status {
Link Here
|
443 |
if ( $server->{account}->{send_patron_home_library_in_af} ); |
445 |
if ( $server->{account}->{send_patron_home_library_in_af} ); |
444 |
$resp .= maybe_add( FID_PRINT_LINE, $patron->print_line ); |
446 |
$resp .= maybe_add( FID_PRINT_LINE, $patron->print_line ); |
445 |
|
447 |
|
|
|
448 |
$resp .= $patron->build_patron_attributes_string( $server ); |
449 |
|
446 |
} else { |
450 |
} else { |
447 |
# Invalid patron (cardnumber) |
451 |
# Invalid patron (cardnumber) |
448 |
# Report that the user has no privs. |
452 |
# Report that the user has no privs. |
Lines 1006-1011
sub handle_patron_info {
Link Here
|
1006 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->{branchcode}, $server); |
1010 |
$resp .= maybe_add( FID_SCREEN_MSG, $patron->{branchcode}, $server); |
1007 |
} |
1011 |
} |
1008 |
$resp .= maybe_add( FID_PRINT_LINE, $patron->print_line ); |
1012 |
$resp .= maybe_add( FID_PRINT_LINE, $patron->print_line ); |
|
|
1013 |
|
1014 |
$resp .= $patron->build_patron_attributes_string( $server ); |
1009 |
} else { |
1015 |
} else { |
1010 |
|
1016 |
|
1011 |
# Invalid patron ID: |
1017 |
# Invalid patron ID: |
Lines 1606-1611
sub api_auth {
Link Here
|
1606 |
return $status; |
1612 |
return $status; |
1607 |
} |
1613 |
} |
1608 |
|
1614 |
|
|
|
1615 |
|
1609 |
1; |
1616 |
1; |
1610 |
__END__ |
1617 |
__END__ |
1611 |
|
1618 |
|