View | Details | Raw Unified | Return to bug 32537
Collapse All | Expand All

(-)a/misc/sip_cli_emulator.pl (-4 / +8 lines)
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
- 

Return to bug 32537