Bug 32806: Rename ERMHome and ERMMain to Home and Main

[koha-ffzg.git] / Koha / AudioAlerts.pm

diff --git a/Koha/AudioAlerts.pm b/Koha/AudioAlerts.pm
index 11aede0..8190ee0 100644 (file)
--- 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;