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 <dscott@laurentian.ca>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
index 9606e9c..6c88f83 100644 (file)
--- 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;
     }