|
Lines 911-917
sub handle_login {
Link Here
|
| 911 |
sub summary_info { |
911 |
sub summary_info { |
| 912 |
my ( $ils, $patron, $summary, $start, $end, $server ) = @_; |
912 |
my ( $ils, $patron, $summary, $start, $end, $server ) = @_; |
| 913 |
my $resp = ''; |
913 |
my $resp = ''; |
| 914 |
my $summary_type; |
|
|
| 915 |
|
914 |
|
| 916 |
# |
915 |
# |
| 917 |
# Map from offsets in the "summary" field of the Patron Information |
916 |
# Map from offsets in the "summary" field of the Patron Information |
|
Lines 926-934
sub summary_info {
Link Here
|
| 926 |
{ func => $patron->can("unavail_holds"), fid => FID_UNAVAILABLE_HOLD_ITEMS }, |
925 |
{ func => $patron->can("unavail_holds"), fid => FID_UNAVAILABLE_HOLD_ITEMS }, |
| 927 |
); |
926 |
); |
| 928 |
|
927 |
|
| 929 |
if ( ( $summary_type = index( $summary, 'Y' ) ) == -1 ) { |
928 |
my $summary_type = index( $summary, 'Y' ); |
| 930 |
return ''; # No detailed information required |
929 |
return q{} if $summary_type == -1; # No detailed information required. |
| 931 |
} |
930 |
return q{} if $summary_type > 5; # Positions 6-9 are not defined in the sip spec, |
|
|
931 |
# and we have no extensions to handle them. |
| 932 |
|
932 |
|
| 933 |
siplog( "LOG_DEBUG", "Summary_info: index == '%d', field '%s'", $summary_type, $summary_map[$summary_type]->{fid} ); |
933 |
siplog( "LOG_DEBUG", "Summary_info: index == '%d', field '%s'", $summary_type, $summary_map[$summary_type]->{fid} ); |
| 934 |
|
934 |
|
| 935 |
- |
|
|