Fix archive report script to not skip first row.

->first, as used in cd8a5702, uses the iterator, so ->next will then
only return the second onward. Instead, do the needed thing in the
first iteration of the loop. Also check the option is set as some
scripts do not set it.

1 files changed, 8 insertions, 7 deletions

diff --git a/perllib/FixMyStreet/Script/ArchiveOldEnquiries.pm b/perllib/FixMyStreet/Script/ArchiveOldEnquiries.pm
index ce32b0d93..0c938682d 100644
--- a/perllib/FixMyStreet/Script/ArchiveOldEnquiries.pm
+++ b/perllib/FixMyStreet/Script/ArchiveOldEnquiries.pm
@@ -139,17 +139,18 @@ sub close_problems {
 
     my $problems = shift;
 
-    return unless $problems->count;
-
     my $extra = { auto_closed_by_script => 1 };
     $extra->{is_superuser} = 1 if !$opts->{user_name};
 
-    # need to do this again in case no reports were closed with an
-    # email in which case we won't have set the lang and domain
-    my $cobrand = FixMyStreet::Cobrand->get_class_for_moniker($opts->{cobrand})->new();
-    $cobrand->set_lang_and_domain($problems->first->lang, 1);
-
+    my $cobrand;
     while (my $problem = $problems->next) {
+        # need to do this in case no reports were closed with an
+        # email in which case we won't have set the lang and domain
+        if ($opts->{cobrand} && !$cobrand) {
+            $cobrand = FixMyStreet::Cobrand->get_class_for_moniker($opts->{cobrand})->new();
+            $cobrand->set_lang_and_domain($problem->lang, 1);
+        }
+
         my $timestamp = \'current_timestamp';
         my $comment = $problem->add_to_comments( {
             text => $opts->{closure_text} || '',