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