URLVerify.pm; docs; tested redirect max/loops and repairs

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 c02af13..4e86dcd 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
@@ -343,7 +343,7 @@ sub verify_url {
         $cur_url = $url_resp->{redirect_url} or last;
     }
 
-    if ($loop_detected or $redir_count == $max_redirects) {
+    if ($loop_detected or $redir_count > $max_redirects) {
 
         my $vcation = Fieldmapper::url_verify::url_verification->new;
         $vcation->url($cur_url->id);
@@ -356,7 +356,7 @@ sub verify_url {
             $vcation->res_text('Redirect Loop');
 
         } else {
-            $logger->info("url: max redirects reached for " . $cur_url->full_url);
+            $logger->info("url: max redirects reached for source URL " . $url->full_url);
             $vcation->res_code('995');
             $vcation->res_text('Max Redirects');
         }
@@ -454,7 +454,9 @@ sub find_matching_url_for_attempt {
         select => {uvuv => ['id']},
         from => {
             uvuv => {
-                uvva => {}, # attempt
+                uvva => { # attempt
+                    filter => {id => $attempt->id}
+                },
                 uvu => {} # url
             }
         },