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