X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=Koha%2FAudioAlerts.pm;h=8190ee01d1edf540cbbcdc8044c606405bbd6e67;hb=998289850f373a6b83d1ee4387161575fd6d3def;hp=11aede083c88f0abc0d28ecec7d8bda827dfa956;hpb=9d6d641d1f8b77271800f43bc027b651f9aea52b;p=koha-ffzg.git

diff --git a/Koha/AudioAlerts.pm b/Koha/AudioAlerts.pm
index 11aede083c..8190ee01d1 100644
--- a/Koha/AudioAlerts.pm
+++ b/Koha/AudioAlerts.pm
@@ -91,14 +91,14 @@ sub move {
 
     if ( $where eq 'up' ) {
         unless ( $alert->precedence() == 1 ) {
-            my ($other) = $self->search( { precedence => $alert->precedence() - 1 } );
+            my $other = $self->search( { precedence => $alert->precedence() - 1 } )->next;
             $other->precedence( $alert->precedence() )->store();
             $alert->precedence( $alert->precedence() - 1 )->store();
         }
     }
     elsif ( $where eq 'down' ) {
         unless ( $alert->precedence() == $self->get_last_precedence() ) {
-            my ($other) = $self->search( { precedence => $alert->precedence() + 1 } );
+            my $other = $self->search( { precedence => $alert->precedence() + 1 } )->next;
             $other->precedence( $alert->precedence() )->store();
             $alert->precedence( $alert->precedence() + 1 )->store();
         }
@@ -125,7 +125,7 @@ and to have no gaps
 sub fix_precedences {
     my ($self) = @_;
 
-    my @alerts = $self->search();
+    my @alerts = $self->search->as_list;
 
     my $i = 1;
     map { $_->precedence( $i++ )->store() } @alerts;