From 3994b9762fdf96bdd97e3263e2bd48aaa4d33d65 Mon Sep 17 00:00:00 2001 From: Dan Scott Date: Sun, 11 Nov 2012 16:41:23 -0500 Subject: [PATCH] Don't break TPAC with email address usernames "next if..." is not valid if you're not inside a loop. Sheesh. Signed-off-by: Dan Scott --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm index 9606e9c42f..6c88f83f9e 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm @@ -388,8 +388,9 @@ sub load_login { # do we need to append an email hostname? if ($ou_email_host) { # Assume they already passed in an email address - next if $username =~ m/\@/; - $username .= "\@$ou_email_host"; + if ($username !~ m/\@/) { + $username .= "\@$ou_email_host"; + } } $args->{username} = $username; } -- 2.11.0