URLVerify.pm; avoid re-processing same url within the same attempt (thinko)

Signed-off-by: Bill Erickson <berick@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
index 8ea98d5..f379bbe 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
@@ -460,7 +460,9 @@ sub verify_one_url {
 
     if ($match_vcation) {
         $logger->info("url: found matching URL in verification attempt [$url_text]");
-        $vcation->redirect_to($match_vcation->url);
+        $vcation->res_code($match_vcation->res_code);
+        $vcation->res_text($match_vcation->res_text);
+        $vcation->redirect_to($match_vcation->redirect_to);
     }
 
     $e->create_url_verify_url_verification($vcation) or return $e->die_event;