|
Lines 689-777
foreach my $code ( keys %$messages ) {
Link Here
|
| 689 |
if ( $code eq 'BadBarcode' ) { |
689 |
if ( $code eq 'BadBarcode' ) { |
| 690 |
$err{badbarcode} = 1; |
690 |
$err{badbarcode} = 1; |
| 691 |
$err{msg} = $messages->{'BadBarcode'}; |
691 |
$err{msg} = $messages->{'BadBarcode'}; |
| 692 |
} |
692 |
} elsif ( $code eq 'NotIssued' ) { |
| 693 |
elsif ( $code eq 'NotIssued' ) { |
|
|
| 694 |
$err{notissued} = 1; |
693 |
$err{notissued} = 1; |
| 695 |
$err{msg} = ''; |
694 |
$err{msg} = ''; |
| 696 |
} |
695 |
} elsif ( $code eq 'LocalUse' ) { |
| 697 |
elsif ( $code eq 'LocalUse' ) { |
|
|
| 698 |
$err{localuse} = 1; |
696 |
$err{localuse} = 1; |
| 699 |
} |
697 |
} elsif ( $code eq 'WasLost' ) { |
| 700 |
elsif ( $code eq 'WasLost' ) { |
|
|
| 701 |
$err{waslost} = 1; |
698 |
$err{waslost} = 1; |
| 702 |
} |
699 |
} elsif ( $code eq 'LostItemFeeRefunded' ) { |
| 703 |
elsif ( $code eq 'LostItemFeeRefunded' ) { |
|
|
| 704 |
$template->param( LostItemFeeRefunded => 1 ); |
700 |
$template->param( LostItemFeeRefunded => 1 ); |
| 705 |
} |
701 |
} elsif ( $code eq 'LostItemPaymentNotRefunded' ) { |
| 706 |
elsif ( $code eq 'LostItemPaymentNotRefunded' ) { |
|
|
| 707 |
$template->param( LostItemPaymentNotRefunded => 1 ); |
702 |
$template->param( LostItemPaymentNotRefunded => 1 ); |
| 708 |
} |
703 |
} elsif ( $code eq 'LostItemFeeCharged' ) { |
| 709 |
elsif ( $code eq 'LostItemFeeCharged' ) { |
|
|
| 710 |
$template->param( LostItemFeeCharged => 1 ); |
704 |
$template->param( LostItemFeeCharged => 1 ); |
| 711 |
} |
705 |
} elsif ( $code eq 'LostItemFeeRestored' ) { |
| 712 |
elsif ( $code eq 'LostItemFeeRestored' ) { |
|
|
| 713 |
$template->param( LostItemFeeRestored => 1 ); |
706 |
$template->param( LostItemFeeRestored => 1 ); |
| 714 |
} |
707 |
} elsif ( $code eq 'ProcessingFeeRefunded' ) { |
| 715 |
elsif ( $code eq 'ProcessingFeeRefunded' ) { |
|
|
| 716 |
$template->param( ProcessingFeeRefunded => 1 ); |
708 |
$template->param( ProcessingFeeRefunded => 1 ); |
| 717 |
} |
709 |
} elsif ( $code eq 'ResFound' ) { |
| 718 |
elsif ( $code eq 'ResFound' ) { |
|
|
| 719 |
; # FIXME... anything to do here? |
710 |
; # FIXME... anything to do here? |
| 720 |
} |
711 |
} elsif ( $code eq 'WasReturned' ) { |
| 721 |
elsif ( $code eq 'WasReturned' ) { |
|
|
| 722 |
; # FIXME... anything to do here? |
712 |
; # FIXME... anything to do here? |
| 723 |
} |
713 |
} elsif ( $code eq 'WasTransfered' ) { |
| 724 |
elsif ( $code eq 'WasTransfered' ) { |
|
|
| 725 |
; # FIXME... anything to do here? |
714 |
; # FIXME... anything to do here? |
| 726 |
} |
715 |
} elsif ( $code eq 'TransferTo' ) { |
| 727 |
elsif ( $code eq 'TransferTo' ) { |
|
|
| 728 |
; # Handled above, along with WasTransfered |
716 |
; # Handled above, along with WasTransfered |
| 729 |
} |
717 |
} elsif ( $code eq 'withdrawn' ) { |
| 730 |
elsif ( $code eq 'withdrawn' ) { |
|
|
| 731 |
$err{withdrawn} = 1; |
718 |
$err{withdrawn} = 1; |
| 732 |
} |
719 |
} elsif ( $code eq 'WrongTransfer' ) { |
| 733 |
elsif ( $code eq 'WrongTransfer' ) { |
|
|
| 734 |
; # FIXME... anything to do here? |
720 |
; # FIXME... anything to do here? |
| 735 |
} |
721 |
} elsif ( $code eq 'WrongTransferItem' ) { |
| 736 |
elsif ( $code eq 'WrongTransferItem' ) { |
|
|
| 737 |
; # FIXME... anything to do here? |
722 |
; # FIXME... anything to do here? |
| 738 |
} |
723 |
} elsif ( $code eq 'NeedsTransfer' ) { |
| 739 |
elsif ( $code eq 'NeedsTransfer' ) { |
724 |
} elsif ( $code eq 'TransferTrigger' ) { |
| 740 |
} |
|
|
| 741 |
elsif ( $code eq 'TransferTrigger' ) { |
| 742 |
; # Handled alongside NeedsTransfer |
725 |
; # Handled alongside NeedsTransfer |
| 743 |
} |
726 |
} elsif ( $code eq 'TransferArrived' ) { |
| 744 |
elsif ( $code eq 'TransferArrived' ) { |
|
|
| 745 |
$err{transferred} = $messages->{'TransferArrived'}; |
727 |
$err{transferred} = $messages->{'TransferArrived'}; |
| 746 |
} |
728 |
} elsif ( $code eq 'Wrongbranch' ) { |
| 747 |
elsif ( $code eq 'Wrongbranch' ) { |
729 |
} elsif ( $code eq 'Debarred' ) { |
| 748 |
} |
|
|
| 749 |
elsif ( $code eq 'Debarred' ) { |
| 750 |
$err{debarred} = $messages->{'Debarred'}; |
730 |
$err{debarred} = $messages->{'Debarred'}; |
| 751 |
$err{debarcardnumber} = $borrower->{cardnumber}; |
731 |
$err{debarcardnumber} = $borrower->{cardnumber}; |
| 752 |
$err{debarborrowernumber} = $borrower->{borrowernumber}; |
732 |
$err{debarborrowernumber} = $borrower->{borrowernumber}; |
| 753 |
$err{debarname} = "$borrower->{firstname} $borrower->{surname}"; |
733 |
$err{debarname} = "$borrower->{firstname} $borrower->{surname}"; |
| 754 |
} |
734 |
} elsif ( $code eq 'PrevDebarred' ) { |
| 755 |
elsif ( $code eq 'PrevDebarred' ) { |
735 |
$err{prevdebarred} = $messages->{'PrevDebarred'}; |
| 756 |
$err{prevdebarred} = $messages->{'PrevDebarred'}; |
736 |
} elsif ( $code eq 'ForeverDebarred' ) { |
| 757 |
} |
737 |
$err{foreverdebarred} = $messages->{'ForeverDebarred'}; |
| 758 |
elsif ( $code eq 'ForeverDebarred' ) { |
738 |
} elsif ( $code eq 'ItemLocationUpdated' ) { |
| 759 |
$err{foreverdebarred} = $messages->{'ForeverDebarred'}; |
|
|
| 760 |
} |
| 761 |
elsif ( $code eq 'ItemLocationUpdated' ) { |
| 762 |
$err{ItemLocationUpdated} = $messages->{ItemLocationUpdated}; |
739 |
$err{ItemLocationUpdated} = $messages->{ItemLocationUpdated}; |
| 763 |
} |
740 |
} elsif ( $code eq 'NotForLoanStatusUpdated' ) { |
| 764 |
elsif ( $code eq 'NotForLoanStatusUpdated' ) { |
|
|
| 765 |
$err{NotForLoanStatusUpdated} = $messages->{NotForLoanStatusUpdated}; |
741 |
$err{NotForLoanStatusUpdated} = $messages->{NotForLoanStatusUpdated}; |
| 766 |
} |
742 |
} elsif ( $code eq 'DataCorrupted' ) { |
| 767 |
elsif ( $code eq 'DataCorrupted' ) { |
|
|
| 768 |
$err{data_corrupted} = 1; |
743 |
$err{data_corrupted} = 1; |
| 769 |
} |
744 |
} elsif ( $code eq 'ReturnClaims' ) { |
| 770 |
elsif ( $code eq 'ReturnClaims' ) { |
|
|
| 771 |
$template->param( ReturnClaims => $messages->{ReturnClaims} ); |
745 |
$template->param( ReturnClaims => $messages->{ReturnClaims} ); |
| 772 |
} |
746 |
} elsif ( $code eq 'ClaimAutoResolved' ) { |
| 773 |
elsif ( $code eq 'ClaimAutoResolved' ) { |
747 |
$template->param( ClaimAutoResolved => $messages->{ClaimAutoResolved} ); |
| 774 |
$template->param( ClaimAutoResolved => $messages->{ClaimAutoResolved} ); |
|
|
| 775 |
} elsif ( $code eq 'RecallFound' ) { |
748 |
} elsif ( $code eq 'RecallFound' ) { |
| 776 |
; |
749 |
; |
| 777 |
} elsif ( $code eq 'RecallNeedsTransfer' ) { |
750 |
} elsif ( $code eq 'RecallNeedsTransfer' ) { |
|
Lines 782-788
foreach my $code ( keys %$messages ) {
Link Here
|
| 782 |
$template->param( InBundle => $messages->{InBundle} ); |
755 |
$template->param( InBundle => $messages->{InBundle} ); |
| 783 |
} else { |
756 |
} else { |
| 784 |
die "Unknown error code $code"; # note we need all the (empty) elsif's above, or we die. |
757 |
die "Unknown error code $code"; # note we need all the (empty) elsif's above, or we die. |
| 785 |
# This forces the issue of staying in sync w/ Circulation.pm |
758 |
# This forces the issue of staying in sync w/ Circulation.pm |
| 786 |
} |
759 |
} |
| 787 |
if (%err) { |
760 |
if (%err) { |
| 788 |
push( @errmsgloop, \%err ); |
761 |
push( @errmsgloop, \%err ); |
| 789 |
- |
|
|