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

(-)a/C4/SIP/sip_cli_emulator.pl (-19 / +18 lines)
Lines 347-354 sub build_item_information_command_message { Link Here
347
sub build_checkout_command_message {
347
sub build_checkout_command_message {
348
    my ($params) = @_;
348
    my ($params) = @_;
349
349
350
    my $SC_renewal_policy = $params->{SC_renewal_policy};
350
    my $SC_renewal_policy = $params->{SC_renewal_policy} || 'N';
351
    my $no_block          = $params->{no_block};
351
    my $no_block          = $params->{no_block} || 'N';
352
    my $transaction_date  = $params->{transaction_date};
352
    my $transaction_date  = $params->{transaction_date};
353
    my $nb_due_date       = $params->{nb_due_date};
353
    my $nb_due_date       = $params->{nb_due_date};
354
    my $institution_id    = $params->{institution_id};
354
    my $institution_id    = $params->{institution_id};
Lines 357-369 sub build_checkout_command_message { Link Here
357
    my $terminal_password = $params->{terminal_password};
357
    my $terminal_password = $params->{terminal_password};
358
    my $item_properties   = $params->{item_properties};
358
    my $item_properties   = $params->{item_properties};
359
    my $patron_password   = $params->{patron_password};
359
    my $patron_password   = $params->{patron_password};
360
    my $fee_acknowledged  = $params->{fee_acknowledged};
360
    my $fee_acknowledged  = $params->{fee_acknowledged} || 'N';
361
    my $cancel            = $params->{cancel};
361
    my $cancel            = $params->{cancel} || 'N';
362
362
363
    $SC_renewal_policy = $SC_renewal_policy ? 'Y' : 'N';
363
    $SC_renewal_policy = $SC_renewal_policy eq 'Y' ? 'Y' : 'N';
364
    $no_block          = $no_block          ? 'Y' : 'N';
364
    $no_block          = $no_block          eq 'Y' ? 'Y' : 'N';
365
    $fee_acknowledged  = $fee_acknowledged  ? 'Y' : 'N';
365
    $fee_acknowledged  = $fee_acknowledged  eq 'Y' ? 'Y' : 'N';
366
    $cancel            = $cancel            ? 'Y' : 'N';
366
    $cancel            = $cancel            eq 'Y' ? 'Y' : 'N';
367
367
368
    $nb_due_date ||= $transaction_date;
368
    $nb_due_date ||= $transaction_date;
369
369
Lines 386-392 sub build_checkout_command_message { Link Here
386
sub build_checkin_command_message {
386
sub build_checkin_command_message {
387
    my ($params) = @_;
387
    my ($params) = @_;
388
388
389
    my $no_block          = $params->{no_block};
389
    my $no_block          = $params->{no_block} || 'N';
390
    my $transaction_date  = $params->{transaction_date};
390
    my $transaction_date  = $params->{transaction_date};
391
    my $return_date       = $params->{return_date};
391
    my $return_date       = $params->{return_date};
392
    my $current_location  = $params->{current_location};
392
    my $current_location  = $params->{current_location};
Lines 394-403 sub build_checkin_command_message { Link Here
394
    my $item_identifier   = $params->{item_identifier};
394
    my $item_identifier   = $params->{item_identifier};
395
    my $terminal_password = $params->{terminal_password};
395
    my $terminal_password = $params->{terminal_password};
396
    my $item_properties   = $params->{item_properties};
396
    my $item_properties   = $params->{item_properties};
397
    my $cancel            = $params->{cancel};
397
    my $cancel            = $params->{cancel} || 'N';
398
398
399
    $no_block = $no_block ? 'Y' : 'N';
399
    $no_block = $no_block eq 'Y' ? 'Y' : 'N';
400
    $cancel   = $cancel   ? 'Y' : 'N';
400
    $cancel   = $cancel   eq 'Y' ? 'Y' : 'N';
401
401
402
    $return_date ||= $transaction_date;
402
    $return_date ||= $transaction_date;
403
403
Lines 417-424 sub build_checkin_command_message { Link Here
417
sub build_renew_command_message {
417
sub build_renew_command_message {
418
    my ($params) = @_;
418
    my ($params) = @_;
419
419
420
    my $third_party_allowed = $params->{third_party_allowed};
420
    my $third_party_allowed = $params->{third_party_allowed} || 'N';
421
    my $no_block            = $params->{no_block};
421
    my $no_block            = $params->{no_block}            || 'N';
422
    my $transaction_date    = $params->{transaction_date};
422
    my $transaction_date    = $params->{transaction_date};
423
    my $nb_due_date         = $params->{nb_due_date};
423
    my $nb_due_date         = $params->{nb_due_date};
424
    my $institution_id      = $params->{institution_id};
424
    my $institution_id      = $params->{institution_id};
Lines 428-438 sub build_renew_command_message { Link Here
428
    my $title_identifier    = $params->{title_identifier};
428
    my $title_identifier    = $params->{title_identifier};
429
    my $terminal_password   = $params->{terminal_password};
429
    my $terminal_password   = $params->{terminal_password};
430
    my $item_properties     = $params->{item_properties};
430
    my $item_properties     = $params->{item_properties};
431
    my $fee_acknowledged    = $params->{fee_acknowledged};
431
    my $fee_acknowledged    = $params->{fee_acknowledged}    || 'N';
432
432
433
    $third_party_allowed = $third_party_allowed ? 'Y' : 'N';
433
    $third_party_allowed = $third_party_allowed eq 'Y' ? 'Y' : 'N';
434
    $no_block            = $no_block            ? 'Y' : 'N';
434
    $no_block            = $no_block            eq 'Y' ? 'Y' : 'N';
435
    $fee_acknowledged    = $fee_acknowledged    ? 'Y' : 'N';
435
    $fee_acknowledged    = $fee_acknowledged    eq 'Y' ? 'Y' : 'N';
436
436
437
    $nb_due_date ||= $transaction_date;
437
    $nb_due_date ||= $transaction_date;
438
438
439
- 

Return to bug 13159