must have an ident_value to be a dup

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4691 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index 36b9a69..682cfcc 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -447,6 +447,8 @@ sub _update_patron {
 sub _check_dup_ident {
        my( $session, $patron ) = @_;
 
+       return undef unless $patron->ident_value;
+
        my $search = {
                ident_type      => $patron->ident_type, 
                ident_value => $patron->ident_value,