Lines 40-45
my $location_code;
Link Here
|
40 |
my $patron_identifier; |
40 |
my $patron_identifier; |
41 |
my $patron_password; |
41 |
my $patron_password; |
42 |
|
42 |
|
|
|
43 |
my $summary; |
44 |
|
43 |
my $item_identifier; |
45 |
my $item_identifier; |
44 |
|
46 |
|
45 |
my $fee_acknowledged = 0; |
47 |
my $fee_acknowledged = 0; |
Lines 55-67
GetOptions(
Link Here
|
55 |
"sp|sip_pass=s" => \$login_password, # sip password |
57 |
"sp|sip_pass=s" => \$login_password, # sip password |
56 |
"l|location|location_code=s" => \$location_code, # sip location code |
58 |
"l|location|location_code=s" => \$location_code, # sip location code |
57 |
|
59 |
|
58 |
"patron=s" => \$patron_identifier, # patron cardnumber or login |
60 |
"patron=s" => \$patron_identifier, # patron cardnumber or login |
59 |
"password=s" => \$patron_password, # patron's password |
61 |
"password=s" => \$patron_password, # patron's password |
60 |
|
62 |
|
61 |
"i|item=s" => \$item_identifier, |
63 |
"i|item=s" => \$item_identifier, |
62 |
|
64 |
|
63 |
"fa|fee-acknowledged" => \$fee_acknowledged, |
65 |
"fa|fee-acknowledged" => \$fee_acknowledged, |
64 |
|
66 |
|
|
|
67 |
"s|summary=s" => \$summary, |
68 |
|
65 |
"t|terminator=s" => \$terminator, |
69 |
"t|terminator=s" => \$terminator, |
66 |
|
70 |
|
67 |
"m|message=s" => \@messages, |
71 |
"m|message=s" => \@messages, |
Lines 126-133
my $handlers = {
Link Here
|
126 |
patron_identifier => $patron_identifier, |
130 |
patron_identifier => $patron_identifier, |
127 |
terminal_password => $terminal_password, |
131 |
terminal_password => $terminal_password, |
128 |
patron_password => $patron_password, |
132 |
patron_password => $patron_password, |
|
|
133 |
summary => $summary, |
129 |
}, |
134 |
}, |
130 |
optional => [ 'patron_password', ], |
135 |
optional => [ 'patron_password', 'summary' ], |
131 |
}, |
136 |
}, |
132 |
item_information => { |
137 |
item_information => { |
133 |
name => 'Item Information', |
138 |
name => 'Item Information', |
Lines 312-319
sub build_patron_information_command_message {
Link Here
|
312 |
my $patron_identifier = $params->{patron_identifier}; |
317 |
my $patron_identifier = $params->{patron_identifier}; |
313 |
my $terminal_password = $params->{terminal_password}; |
318 |
my $terminal_password = $params->{terminal_password}; |
314 |
my $patron_password = $params->{patron_password}; |
319 |
my $patron_password = $params->{patron_password}; |
|
|
320 |
my $summary = $params->{summary}; |
315 |
|
321 |
|
316 |
my $summary = " "; |
322 |
$summary //= " "; |
317 |
|
323 |
|
318 |
return |
324 |
return |
319 |
PATRON_INFO |
325 |
PATRON_INFO |
Lines 484-489
Options:
Link Here
|
484 |
--patron ILS patron cardnumber or username |
490 |
--patron ILS patron cardnumber or username |
485 |
--password ILS patron password |
491 |
--password ILS patron password |
486 |
|
492 |
|
|
|
493 |
-s --summary Optionally define the patron information request summary field. |
494 |
Please refer to the SIP2 protocol specification for details |
495 |
|
487 |
--item ILS item identifier ( item barcode ) |
496 |
--item ILS item identifier ( item barcode ) |
488 |
|
497 |
|
489 |
-t --terminator SIP2 message terminator, either CR, or CRLF |
498 |
-t --terminator SIP2 message terminator, either CR, or CRLF |
490 |
- |
|
|