Add OILS_SIP_MSG_BILL_ERR for when an error occurs getting bills.
[working/Evergreen.git] / Open-ILS / src / perlmods / lib / OpenILS / SIP / Msg.pm
1 package OpenILS::SIP::Msg;
2 use strict; use warnings;
3 # -------------------------------------------------------
4 # Defines the various screen messages
5 # Currently they are just constants.. they need to be
6 # moved to an external lang-specific source
7 # -------------------------------------------------------
8 use vars qw(@EXPORT_OK %EXPORT_TAGS);
9 use Exporter;
10 use base qw/Exporter/;
11
12
13 # ---------------------------------------------------------------------
14 # Shoves defined constants into the export array
15 # so they don't have to be listed twice in the code
16 # ---------------------------------------------------------------------
17 sub econst {
18    my($name, $value) = @_;
19    my $caller = caller;
20    no strict;
21    *{$name} = sub () { $value };
22    push @{$caller.'::EXPORT_OK'}, $name;
23 }
24
25
26 econst OILS_SIP_MSG_CIRC_EXISTS => 'This item is already checked out';
27 econst OILS_SIP_MSG_CIRC_PERMIT_FAILED => 'Patron is not allowed to check out the selected item';
28 econst OILS_SIP_MSG_NO_BILL => 'Bill not found';
29 econst OILS_SIP_MSG_OVERPAYMENT => 'Overpayment not allowed';
30 econst OILS_SIP_MSG_BILL_ERR => 'An error occurred while retrieving bills';
31
32 %EXPORT_TAGS = ( const => [ @EXPORT_OK ] );
33
34