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

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

Return to bug 23426