Bug 29844: Fix ->search occurrences

[srvgit] / circ / circulation.pl

diff --git a/circ/circulation.pl b/circ/circulation.pl
index 705ac45..4e31d12 100755 (executable)
--- a/circ/circulation.pl
+++ b/circ/circulation.pl
@@ -545,11 +545,11 @@ my $view = $batch
 
 my @relatives;
 if ( $patron ) {
-    if ( my @guarantors = $patron->guarantor_relationships()->guarantors() ) {
+    if ( my @guarantors = $patron->guarantor_relationships()->guarantors->as_list ) {
         push( @relatives, $_->id ) for @guarantors;
-        push( @relatives, $_->id ) for $patron->siblings();
+        push( @relatives, $_->id ) for $patron->siblings->as_list;
     } else {
-        push( @relatives, $_->id ) for $patron->guarantee_relationships()->guarantees();
+        push( @relatives, $_->id ) for $patron->guarantee_relationships()->guarantees->as_list;
     }
 }
 my $relatives_issues_count =
@@ -603,7 +603,7 @@ $template->param(
 
 
 if ( C4::Context->preference("ExportCircHistory") ) {
-    $template->param(csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc' }) ]);
+    $template->param(csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc' })->as_list ]);
 }
 
 my $has_modifications = Koha::Patron::Modifications->search( { borrowernumber => $borrowernumber } )->count;