Lines 54-59
my $fee_identifier;
Link Here
|
54 |
my $transaction_id; |
54 |
my $transaction_id; |
55 |
my $pickup_location; |
55 |
my $pickup_location; |
56 |
my $hold_mode; |
56 |
my $hold_mode; |
|
|
57 |
my $no_block; |
57 |
|
58 |
|
58 |
my $terminator = q{}; |
59 |
my $terminator = q{}; |
59 |
|
60 |
|
Lines 83-88
GetOptions(
Link Here
|
83 |
"transaction-id=s" => \$transaction_id, |
84 |
"transaction-id=s" => \$transaction_id, |
84 |
"pickup-location=s" => \$pickup_location, |
85 |
"pickup-location=s" => \$pickup_location, |
85 |
"hold-mode=s" => \$hold_mode, |
86 |
"hold-mode=s" => \$hold_mode, |
|
|
87 |
"n|no-block=s" => \$no_block, |
86 |
|
88 |
|
87 |
"t|terminator=s" => \$terminator, |
89 |
"t|terminator=s" => \$terminator, |
88 |
|
90 |
|
Lines 101-106
if ( $help
Link Here
|
101 |
exit(); |
103 |
exit(); |
102 |
} |
104 |
} |
103 |
|
105 |
|
|
|
106 |
$no_block //= 'N'; |
107 |
|
104 |
$terminator = ( $terminator eq 'CR' ) ? $CR : $CRLF; |
108 |
$terminator = ( $terminator eq 'CR' ) ? $CR : $CRLF; |
105 |
|
109 |
|
106 |
# Set perl to expect the same record terminator it is sending |
110 |
# Set perl to expect the same record terminator it is sending |
Lines 174-180
my $handlers = {
Link Here
|
174 |
subroutine => \&build_checkout_command_message, |
178 |
subroutine => \&build_checkout_command_message, |
175 |
parameters => { |
179 |
parameters => { |
176 |
SC_renewal_policy => 'Y', |
180 |
SC_renewal_policy => 'Y', |
177 |
no_block => 'N', |
181 |
no_block => $no_block, |
178 |
transaction_date => $transaction_date, |
182 |
transaction_date => $transaction_date, |
179 |
nb_due_date => undef, |
183 |
nb_due_date => undef, |
180 |
institution_id => $location_code, |
184 |
institution_id => $location_code, |
Lines 198-204
my $handlers = {
Link Here
|
198 |
name => 'Checkin', |
202 |
name => 'Checkin', |
199 |
subroutine => \&build_checkin_command_message, |
203 |
subroutine => \&build_checkin_command_message, |
200 |
parameters => { |
204 |
parameters => { |
201 |
no_block => 'N', |
205 |
no_block => $no_block, |
202 |
transaction_date => $transaction_date, |
206 |
transaction_date => $transaction_date, |
203 |
return_date => $transaction_date, |
207 |
return_date => $transaction_date, |
204 |
current_location => $location_code, |
208 |
current_location => $location_code, |
Lines 220-226
my $handlers = {
Link Here
|
220 |
subroutine => \&build_renew_command_message, |
224 |
subroutine => \&build_renew_command_message, |
221 |
parameters => { |
225 |
parameters => { |
222 |
third_party_allowed => 'N', |
226 |
third_party_allowed => 'N', |
223 |
no_block => 'N', |
227 |
no_block => $no_block, |
224 |
transaction_date => $transaction_date, |
228 |
transaction_date => $transaction_date, |
225 |
nb_due_date => undef, |
229 |
nb_due_date => undef, |
226 |
institution_id => $location_code, |
230 |
institution_id => $location_code, |
Lines 654-659
Options:
Link Here
|
654 |
--transaction-id Transaction id for Fee Paid message, optional |
658 |
--transaction-id Transaction id for Fee Paid message, optional |
655 |
--pickup-location Pickup location (branchcode) for Hold message, optional |
659 |
--pickup-location Pickup location (branchcode) for Hold message, optional |
656 |
--hold-mode Accepts "+" to add hold or "-" to cancel hold, defaults to + |
660 |
--hold-mode Accepts "+" to add hold or "-" to cancel hold, defaults to + |
|
|
661 |
-n --no-block Accepts "N" for standard operatoin, "Y" for no-block, defaults to "N" |
657 |
|
662 |
|
658 |
-m --message SIP2 message to execute |
663 |
-m --message SIP2 message to execute |
659 |
|
664 |
|
660 |
- |
|
|