|
Lines 55-60
my $transaction_id;
Link Here
|
| 55 |
my $pickup_location; |
55 |
my $pickup_location; |
| 56 |
my $hold_mode; |
56 |
my $hold_mode; |
| 57 |
my $no_block = 'N'; |
57 |
my $no_block = 'N'; |
|
|
58 |
my $start_item; |
| 59 |
my $end_item; |
| 58 |
|
60 |
|
| 59 |
my $terminator = q{}; |
61 |
my $terminator = q{}; |
| 60 |
|
62 |
|
|
Lines 85-90
GetOptions(
Link Here
|
| 85 |
"pickup-location=s" => \$pickup_location, |
87 |
"pickup-location=s" => \$pickup_location, |
| 86 |
"hold-mode=s" => \$hold_mode, |
88 |
"hold-mode=s" => \$hold_mode, |
| 87 |
"n|no-block=s" => \$no_block, |
89 |
"n|no-block=s" => \$no_block, |
|
|
90 |
"start-item=s" => \$start_item, |
| 91 |
"end-item=s" => \$end_item, |
| 88 |
|
92 |
|
| 89 |
"t|terminator=s" => \$terminator, |
93 |
"t|terminator=s" => \$terminator, |
| 90 |
|
94 |
|
|
Lines 158-165
my $handlers = {
Link Here
|
| 158 |
terminal_password => $terminal_password, |
162 |
terminal_password => $terminal_password, |
| 159 |
patron_password => $patron_password, |
163 |
patron_password => $patron_password, |
| 160 |
summary => $summary, |
164 |
summary => $summary, |
|
|
165 |
start_item => $start_item, |
| 166 |
end_item => $end_item, |
| 161 |
}, |
167 |
}, |
| 162 |
optional => [ 'patron_password', 'summary' ], |
168 |
optional => [ 'patron_password', 'summary', 'start_item', 'end_item' ], |
| 163 |
}, |
169 |
}, |
| 164 |
item_information => { |
170 |
item_information => { |
| 165 |
name => 'Item Information', |
171 |
name => 'Item Information', |
|
Lines 404-412
sub build_patron_information_command_message {
Link Here
|
| 404 |
my $patron_identifier = $params->{patron_identifier}; |
410 |
my $patron_identifier = $params->{patron_identifier}; |
| 405 |
my $terminal_password = $params->{terminal_password}; |
411 |
my $terminal_password = $params->{terminal_password}; |
| 406 |
my $patron_password = $params->{patron_password}; |
412 |
my $patron_password = $params->{patron_password}; |
|
|
413 |
my $start_item = $params->{start_item}; |
| 414 |
my $end_item = $params->{end_item}; |
| 407 |
my $summary = $params->{summary}; |
415 |
my $summary = $params->{summary}; |
| 408 |
|
416 |
|
| 409 |
$summary //= " "; |
417 |
$summary //= " "; |
|
|
418 |
$start_item //= ""; |
| 419 |
$end_item //= ""; |
| 410 |
|
420 |
|
| 411 |
return |
421 |
return |
| 412 |
PATRON_INFO |
422 |
PATRON_INFO |
|
Lines 416-422
sub build_patron_information_command_message {
Link Here
|
| 416 |
. build_field( FID_INST_ID, $institution_id ) |
426 |
. build_field( FID_INST_ID, $institution_id ) |
| 417 |
. build_field( FID_PATRON_ID, $patron_identifier ) |
427 |
. build_field( FID_PATRON_ID, $patron_identifier ) |
| 418 |
. build_field( FID_TERMINAL_PWD, $terminal_password ) |
428 |
. build_field( FID_TERMINAL_PWD, $terminal_password ) |
| 419 |
. build_field( FID_PATRON_PWD, $patron_password, { optional => 1 } ); |
429 |
. build_field( FID_PATRON_PWD, $patron_password, { optional => 1 } ) |
|
|
430 |
. build_field( FID_START_ITEM, $start_item, { optional => 1 } ) |
| 431 |
. build_field( FID_END_ITEM, $end_item, { optional => 1 } ); |
| 420 |
} |
432 |
} |
| 421 |
|
433 |
|
| 422 |
sub build_item_information_command_message { |
434 |
sub build_item_information_command_message { |
| 423 |
- |
|
|