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