|
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 |
- |
|
|