From 3f25aaf93f7711e9d1810034ca130958ee47ce40 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 21 Jun 2005 14:41:33 +0000
Subject: [PATCH] adding more exception types

git-svn-id: svn://svn.open-ils.org/ILS/trunk@891 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/EX.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/EX.pm b/Open-ILS/src/perlmods/OpenILS/EX.pm
index 3f0e18d959..4309ed0afa 100644
--- a/Open-ILS/src/perlmods/OpenILS/EX.pm
+++ b/Open-ILS/src/perlmods/OpenILS/EX.pm
@@ -9,11 +9,12 @@ use OpenILS::Utils::Fieldmapper;
 # ----------------------------------------------------------------------------------
 
 my %ex_types = (
-	UNKNOWN							=> 1,
-	SEARCH_TOO_LARGE				=> 2,
-	UNKNOWN_BARCODE				=> 3,
+	UNKNOWN									=> 1,
+	SEARCH_TOO_LARGE						=> 2,
+	UNKNOWN_BARCODE						=> 3,
 	DUPLICATE_INVALID_USER_BARCODE	=> 4,
-	DUPLICATE_USER_USERNAME		=> 5,
+	DUPLICATE_USER_USERNAME				=> 5,
+	USER_WRONG_PASSWORD					=> 6,
 );
 
 use overload ( '""' => sub { $_[0]->ex()->err_msg(); } );
-- 
2.43.2