DEICH-5447 reserve questionnaire: fetch patron before anonymization of reserve...

DEICH-5447 reserve questionnaire: fetch patron before anonymization of reserve so questionnaire can be sent

koha/Deichman/Runner/Jobs/CancelExpiredReserves.pm

@@ -38,6 +38,7 @@ sub Run {
         }
         try {
             $self->{reserve} = $res;
+            my $p = Deichman::Patron->new()->Get($self->{reserve}->{borrowernumber});
             $self->{writer}->write("Cancelling expired res " .$self->{reserve}->{reserve_id}. " on biblio " .$self->{reserve}->{biblionumber}. " with expirationdate ". $self->{reserve}->{expirationdate} . "\n");
             $self->{args}->{test} or $self->Deichman::Patron::Reserve::Cancel(0, 1); # KeepIll=0, expired=1
             $processed++;
@@ -45,8 +46,6 @@ sub Run {
             # DEICH-5447 -->
             # Send email to patron with questionnaire why they failed to collect material
             next unless ($self->{args}->{questionnaire} or $questionnaire);
-            my $p = Deichman::Patron->new()->Get($self->{reserve}->{borrowernumber});
-
             next unless $p->{patron}->{alertemail}; #ignore those without email
 
             # Check that we haven't allready sent questionnaire mail