@@ -, +, @@ --- Koha/Objects.pm | 8 ++++---- t/db_dependent/Koha/Objects.t | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) --- a/Koha/Objects.pm +++ a/Koha/Objects.pm @@ -199,9 +199,9 @@ sub delete { =cut sub update { - my ($self, $params) = @_; + my ($self, $fields, $options) = @_; - my $no_triggers = delete $params->{no_triggers}; + my $no_triggers = $options->{no_triggers}; if ( !$no_triggers @@ -212,14 +212,14 @@ sub update { my $objects_updated; $self->_resultset->result_source->schema->txn_do( sub { while ( my $o = $self->next ) { - $o->update($params); + $o->update($fields); $objects_updated++; } }); return $objects_updated; } - return $self->_resultset->update($params); + return $self->_resultset->update($fields); } =head3 single --- a/t/db_dependent/Koha/Objects.t +++ a/t/db_dependent/Koha/Objects.t @@ -995,7 +995,7 @@ subtest 'Return same values as DBIx::Class' => sub { $patrons_us->update({ surname => 'foo' }); # Koha::Patron->store is supposed to uppercase the surnames is( $patrons_us->search({ surname => 'FOO' })->count, 2, 'Koha::Patron->store is hit' ); - $patrons_us->update({ surname => 'foo', no_triggers => 1 }); # The surnames won't be uppercase as we won't hit Koha::Patron->store + $patrons_us->update({ surname => 'foo' }, { no_triggers => 1 }); # The surnames won't be uppercase as we won't hit Koha::Patron->store is( $patrons_us->search({ surname => 'foo' })->count, 2, 'Koha::Patron->store is not hit'); }; --