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