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