|
Lines 44-50
my $summary;
Link Here
|
| 44 |
|
44 |
|
| 45 |
my $item_identifier; |
45 |
my $item_identifier; |
| 46 |
|
46 |
|
| 47 |
my $fee_acknowledged = 0; |
47 |
my $fee_acknowledged; |
| 48 |
|
48 |
|
| 49 |
my $fee_type; |
49 |
my $fee_type; |
| 50 |
my $payment_type; |
50 |
my $payment_type; |
|
Lines 72-78
GetOptions(
Link Here
|
| 72 |
|
72 |
|
| 73 |
"i|item=s" => \$item_identifier, |
73 |
"i|item=s" => \$item_identifier, |
| 74 |
|
74 |
|
| 75 |
"fa|fee-acknowledged" => \$fee_acknowledged, |
75 |
"fa|fee-acknowledged=s" => \$fee_acknowledged, |
| 76 |
|
76 |
|
| 77 |
"s|summary=s" => \$summary, |
77 |
"s|summary=s" => \$summary, |
| 78 |
|
78 |
|
|
Lines 449-460
sub build_checkout_command_message {
Link Here
|
| 449 |
my $terminal_password = $params->{terminal_password}; |
449 |
my $terminal_password = $params->{terminal_password}; |
| 450 |
my $item_properties = $params->{item_properties}; |
450 |
my $item_properties = $params->{item_properties}; |
| 451 |
my $patron_password = $params->{patron_password}; |
451 |
my $patron_password = $params->{patron_password}; |
| 452 |
my $fee_acknowledged = $params->{fee_acknowledged} || 'N'; |
452 |
my $fee_acknowledged = $params->{fee_acknowledged}; |
| 453 |
my $cancel = $params->{cancel} || 'N'; |
453 |
my $cancel = $params->{cancel} || 'N'; |
| 454 |
|
454 |
|
| 455 |
$SC_renewal_policy = $SC_renewal_policy eq 'Y' ? 'Y' : 'N'; |
455 |
$SC_renewal_policy = $SC_renewal_policy eq 'Y' ? 'Y' : 'N'; |
| 456 |
$no_block = $no_block eq 'Y' ? 'Y' : 'N'; |
456 |
$no_block = $no_block eq 'Y' ? 'Y' : 'N'; |
| 457 |
$fee_acknowledged = $fee_acknowledged eq 'Y' ? 'Y' : 'N'; |
|
|
| 458 |
$cancel = $cancel eq 'Y' ? 'Y' : 'N'; |
457 |
$cancel = $cancel eq 'Y' ? 'Y' : 'N'; |
| 459 |
|
458 |
|
| 460 |
$nb_due_date ||= $transaction_date; |
459 |
$nb_due_date ||= $transaction_date; |
|
Lines 520-526
sub build_hold_command_message {
Link Here
|
| 520 |
my $item_identifier = $params->{item_identifier}; |
519 |
my $item_identifier = $params->{item_identifier}; |
| 521 |
my $title_identifier = $params->{title_identifier}; |
520 |
my $title_identifier = $params->{title_identifier}; |
| 522 |
my $terminal_password = $params->{terminal_password}; |
521 |
my $terminal_password = $params->{terminal_password}; |
| 523 |
my $fee_acknowledged = $params->{fee_acknowledged} || 'N'; |
522 |
my $fee_acknowledged = $params->{fee_acknowledged}; |
| 524 |
|
523 |
|
| 525 |
return |
524 |
return |
| 526 |
HOLD |
525 |
HOLD |
|
Lines 552-562
sub build_renew_command_message {
Link Here
|
| 552 |
my $title_identifier = $params->{title_identifier}; |
551 |
my $title_identifier = $params->{title_identifier}; |
| 553 |
my $terminal_password = $params->{terminal_password}; |
552 |
my $terminal_password = $params->{terminal_password}; |
| 554 |
my $item_properties = $params->{item_properties}; |
553 |
my $item_properties = $params->{item_properties}; |
| 555 |
my $fee_acknowledged = $params->{fee_acknowledged} || 'N'; |
554 |
my $fee_acknowledged = $params->{fee_acknowledged}; |
| 556 |
|
555 |
|
| 557 |
$third_party_allowed = $third_party_allowed eq 'Y' ? 'Y' : 'N'; |
556 |
$third_party_allowed = $third_party_allowed eq 'Y' ? 'Y' : 'N'; |
| 558 |
$no_block = $no_block eq 'Y' ? 'Y' : 'N'; |
557 |
$no_block = $no_block eq 'Y' ? 'Y' : 'N'; |
| 559 |
$fee_acknowledged = $fee_acknowledged eq 'Y' ? 'Y' : 'N'; |
|
|
| 560 |
|
558 |
|
| 561 |
$nb_due_date ||= $transaction_date; |
559 |
$nb_due_date ||= $transaction_date; |
| 562 |
|
560 |
|
|
Lines 647-653
Options:
Link Here
|
| 647 |
-t --terminator SIP2 message terminator, either CR, or CRLF |
645 |
-t --terminator SIP2 message terminator, either CR, or CRLF |
| 648 |
(defaults to CRLF) |
646 |
(defaults to CRLF) |
| 649 |
|
647 |
|
| 650 |
-fa --fee-acknowledged Sends a confirmation of checkout fee |
648 |
-fa --fee-acknowledged Accepts "Y" to acknowledge a fee, "N" to not acknowledge it |
| 651 |
|
649 |
|
| 652 |
--fee-type Fee type for Fee Paid message, defaults to '01' |
650 |
--fee-type Fee type for Fee Paid message, defaults to '01' |
| 653 |
--payment-type Payment type for Fee Paid message, default to '00' |
651 |
--payment-type Payment type for Fee Paid message, default to '00' |
| 654 |
- |
|
|