|
Lines 46-51
my $item_identifier;
Link Here
|
| 46 |
|
46 |
|
| 47 |
my $fee_acknowledged = 0; |
47 |
my $fee_acknowledged = 0; |
| 48 |
|
48 |
|
|
|
49 |
my $fee_type; |
| 50 |
my $payment_type; |
| 51 |
my $currency_type; |
| 52 |
my $fee_amount; |
| 53 |
my $fee_identifier; |
| 54 |
my $transaction_id; |
| 55 |
|
| 49 |
my $terminator = q{}; |
56 |
my $terminator = q{}; |
| 50 |
|
57 |
|
| 51 |
my @messages; |
58 |
my @messages; |
|
Lines 66-71
GetOptions(
Link Here
|
| 66 |
|
73 |
|
| 67 |
"s|summary=s" => \$summary, |
74 |
"s|summary=s" => \$summary, |
| 68 |
|
75 |
|
|
|
76 |
"fee-type=s" => \$fee_type, |
| 77 |
"payment-type=s" => \$payment_type, |
| 78 |
"currency-type=s" => \$currency_type, |
| 79 |
"fee-amount=s" => \$fee_amount, |
| 80 |
"fee-identifier=s" => \$fee_identifier, |
| 81 |
"transaction-id=s" => \$transaction_id, |
| 82 |
|
| 69 |
"t|terminator=s" => \$terminator, |
83 |
"t|terminator=s" => \$terminator, |
| 70 |
|
84 |
|
| 71 |
"m|message=s" => \@messages, |
85 |
"m|message=s" => \@messages, |
|
Lines 218-223
my $handlers = {
Link Here
|
| 218 |
'fee_acknowledged', |
232 |
'fee_acknowledged', |
| 219 |
], |
233 |
], |
| 220 |
}, |
234 |
}, |
|
|
235 |
fee_paid => { |
| 236 |
name => 'Fee Paid', |
| 237 |
subroutine => \&build_fee_paid_command_message, |
| 238 |
parameters => { |
| 239 |
transaction_date => $transaction_date, |
| 240 |
fee_type => $fee_type, |
| 241 |
payment_type => $payment_type, |
| 242 |
currency_type => $currency_type, |
| 243 |
fee_amount => $fee_amount, |
| 244 |
institution_id => $location_code, |
| 245 |
patron_identifier => $patron_identifier, |
| 246 |
terminal_password => $terminal_password, |
| 247 |
patron_password => $patron_password, |
| 248 |
fee_identifier => $fee_identifier, |
| 249 |
transaction_id => $transaction_id, |
| 250 |
}, |
| 251 |
optional => [ |
| 252 |
'fee_type', # has default |
| 253 |
'payment_type', # has default |
| 254 |
'currency_type', #has default |
| 255 |
'terminal_password', |
| 256 |
'patron_password', |
| 257 |
'fee_identifier', |
| 258 |
'transaction_id', |
| 259 |
], |
| 260 |
}, |
| 221 |
}; |
261 |
}; |
| 222 |
|
262 |
|
| 223 |
my $data = run_command_message('login'); |
263 |
my $data = run_command_message('login'); |
|
Lines 457-462
sub build_renew_command_message {
Link Here
|
| 457 |
. build_field( FID_FEE_ACK, $fee_acknowledged, { optional => 1 } ); |
497 |
. build_field( FID_FEE_ACK, $fee_acknowledged, { optional => 1 } ); |
| 458 |
} |
498 |
} |
| 459 |
|
499 |
|
|
|
500 |
sub build_fee_paid_command_message { |
| 501 |
my ($params) = @_; |
| 502 |
|
| 503 |
my $transaction_date = $params->{transaction_date}; |
| 504 |
my $fee_type = $params->{fee_type} || '01'; |
| 505 |
my $payment_type = $params->{payment_type} || '00'; |
| 506 |
my $currency_type = $params->{currency_type} || 'USD'; |
| 507 |
my $fee_amount = $params->{fee_amount}; |
| 508 |
my $institution_id = $params->{location_code}; |
| 509 |
my $patron_identifier = $params->{patron_identifier}; |
| 510 |
my $terminal_password = $params->{terminal_password}; |
| 511 |
my $patron_password = $params->{patron_password}; |
| 512 |
my $fee_identifier = $params->{fee_identifier}; |
| 513 |
my $transaction_id = $params->{transaction_id}; |
| 514 |
|
| 515 |
return |
| 516 |
FEE_PAID |
| 517 |
. $transaction_date |
| 518 |
. $fee_type |
| 519 |
. $payment_type |
| 520 |
. $currency_type |
| 521 |
. build_field( FID_FEE_AMT, $fee_amount ) |
| 522 |
. build_field( FID_INST_ID, $institution_id ) |
| 523 |
. build_field( FID_PATRON_ID, $patron_identifier ) |
| 524 |
. build_field( FID_TERMINAL_PWD, $terminal_password, { optional => 1 } ) |
| 525 |
. build_field( FID_PATRON_PWD, $patron_password, { optional => 1 } ) |
| 526 |
. build_field( FID_FEE_ID, $fee_identifier, { optional => 1 } ) |
| 527 |
. build_field( FID_TRANSACTION_ID, $transaction_id, { optional => 1 } ); |
| 528 |
} |
| 529 |
|
| 460 |
sub build_field { |
530 |
sub build_field { |
| 461 |
my ( $field_identifier, $value, $params ) = @_; |
531 |
my ( $field_identifier, $value, $params ) = @_; |
| 462 |
|
532 |
|
|
Lines 500-505
Options:
Link Here
|
| 500 |
|
570 |
|
| 501 |
-fa --fee-acknowledged Sends a confirmation of checkout fee |
571 |
-fa --fee-acknowledged Sends a confirmation of checkout fee |
| 502 |
|
572 |
|
|
|
573 |
--fee-type Fee type for Fee Paid message, defaults to '01' |
| 574 |
--payment-type Payment type for Fee Paid message, default to '00' |
| 575 |
--currency-type Currency type for Fee Paid message, defaults to 'USD' |
| 576 |
--fee-amount Fee amount for Fee Paid message, required |
| 577 |
--fee-identifier Fee identifier for Fee Paid message, optional |
| 578 |
--transaction-id Transaction id for Fee Paid message, optional |
| 579 |
|
| 503 |
-m --message SIP2 message to execute |
580 |
-m --message SIP2 message to execute |
| 504 |
|
581 |
|
| 505 |
Implemented Messages: |
582 |
Implemented Messages: |
|
Lines 509-514
Options:
Link Here
|
| 509 |
checkout |
586 |
checkout |
| 510 |
checkin |
587 |
checkin |
| 511 |
renew |
588 |
renew |
| 512 |
|
589 |
fee_paid |
| 513 |
/ |
590 |
/ |
| 514 |
} |
591 |
} |
| 515 |
- |
|
|