"next" doesn't work if you're not in a for loop

This was causing grievous "Internal server error" problems
when people actually did enter their email address. More
robust, more better. Yay.

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 60c9980..1e03918 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
@@ -419,9 +419,7 @@ sub load_login {
         $args->{barcode} = $username;
     } else {
         # do we need to append an email hostname?
-        if ($ou_email_host) {
-            # Assume they already passed in an email address
-            next if $username =~ m/\@/;
+        if ($ou_email_host and $username !~ m/\@/) {
             $username .= "\@$ou_email_host";
         }
         $args->{username} = $username;