@@ -, +, @@ relations --- Koha/Cash/Register.pm | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) --- a/Koha/Cash/Register.pm +++ a/Koha/Cash/Register.pm @@ -46,9 +46,7 @@ Return the library linked to this cash register sub library { my ($self) = @_; - my $rs = $self->_result->branch; - return unless $rs; - return Koha::Library->_new_from_dbic($rs); + return Koha::Library->_new_from_dbic($self->_result->branch); } =head3 cashups @@ -67,7 +65,7 @@ sub cashups { my $rs = $self->_result->search_related( 'cash_register_actions', $merged_conditions, $attrs ); - return unless $rs; + return Koha::Cash::Register::Actions->_new_from_dbic($rs); } @@ -86,7 +84,6 @@ sub last_cashup { { order_by => { '-desc' => [ 'timestamp', 'id' ] }, rows => 1 } )->single; - return unless $rs; return Koha::Cash::Register::Action->_new_from_dbic($rs); } @@ -98,10 +95,7 @@ Return a set of accountlines linked to this cash register sub accountlines { my ($self) = @_; - - my $rs = $self->_result->accountlines; - return unless $rs; - return Koha::Account::Lines->_new_from_dbic($rs); + return Koha::Account::Lines->_new_from_dbic($self->_result->accountlines); } =head3 outstanding_accountlines @@ -136,7 +130,7 @@ sub outstanding_accountlines { my $rs = $self->_result->search_related( 'accountlines', $merged_conditions, $attrs ); - return unless $rs; + return Koha::Account::Lines->_new_from_dbic($rs); } @@ -148,6 +142,7 @@ Local store method to prevent direct manipulation of the 'branch_default' field sub store { my ($self) = @_; + $self->_result->result_source->schema->txn_do( sub { if ( $self->_result->is_column_changed('branch_default') ) { @@ -163,6 +158,7 @@ sub store { } } ); + return $self; } --