},
$item->{'biblionumber'},
$item->{'itemnumber'},
- 0
+ { log_action => 0 }
);
ModDateLastSeen( $item->{'itemnumber'} );
$item->{location} = $item->{permanent_location};
}
- ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'}, 0 );
+ ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'}, { log_action => 0 } );
}
# full item data, but no borrowernumber or checkout info (no issue)
foreach my $key ( keys %$rules ) {
if ( $item->{notforloan} eq $key ) {
$messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} };
- ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber, 0 );
+ ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber, { log_action => 0 } );
last;
}
}
}
- ModItem( { onloan => undef }, $item->{biblionumber}, $item->{itemnumber}, 0 );
+ ModItem( { onloan => undef }, $item->{biblionumber}, $item->{itemnumber}, { log_action => 0 } );
}
# the holdingbranch is updated if the document is returned to another location.
# And finally delete the issue
$issue->delete;
- ModItem( { 'onloan' => undef }, undef, $itemnumber, 0 );
+ ModItem( { 'onloan' => undef }, undef, $itemnumber, { log_action => 0 } );
if ( C4::Context->preference('StoreLastBorrower') ) {
my $item = Koha::Items->find( $itemnumber );
}
);
- ModItem( { paidfor => '' }, undef, $itemnumber, 0 );
+ ModItem( { paidfor => '' }, undef, $itemnumber, { log_action => 0 } );
return $credit_id;
}
# Update the renewal count on the item, and tell zebra to reindex
$renews = $item->{renewals} + 1;
- ModItem( { renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber, 0 );
+ ModItem( { renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber, { log_action => 0 } );
# Charge a new rental fee, if applicable?
my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber );
{ renewals => 0, onloan => undef },
$issue->{'biblionumber'},
$itemnumber,
- 0
+ { log_action => 0 }
);
return "Success.";
} else {
my $item = shift;
my $biblionumber = shift;
my $itemnumber = shift;
- my $log_action = shift // 1;
+ my $additional_params = shift;
+
+ my $log_action = $additional_params->{log_action} // 1;
# if $biblionumber is undefined, get it from the current item
unless (defined $biblionumber) {
my ($itemnumber) = @_;
my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
- ModItem( { itemlost => 0, datelastseen => $today }, undef, $itemnumber, 0 );
+ ModItem( { itemlost => 0, datelastseen => $today }, undef, $itemnumber, { log_action => 0 } );
}
=head2 DelItem
use t::lib::Mocks;
use t::lib::TestBuilder;
-use Test::More tests => 13;
+use Test::More tests => 14;
use Test::Warn;
is( @itemnumbers, 0, );
};
-subtest 'Test logging for AddItem' => sub {
+subtest 'Test logging for ModItem' => sub {
plan tests => 3;
# False means no logging
$schema->resultset('ActionLog')->search()->delete();
- ModItem({ location => $location }, $bibnum, $itemnumber, 0);
+ ModItem({ location => $location }, $bibnum, $itemnumber, { log_action => 0 });
is( $schema->resultset('ActionLog')->count(), 0, 'False value does not trigger logging' );
# True means logging
$schema->resultset('ActionLog')->search()->delete();
- ModItem({ location => $location }, $bibnum, $itemnumber, 1, 'True value does trigger logging');
- is( $schema->resultset('ActionLog')->count(), 1 );
+ ModItem({ location => $location }, $bibnum, $itemnumber, { log_action => 1 });
+ is( $schema->resultset('ActionLog')->count(), 1, 'True value does trigger logging' );
# Undefined defaults to true
$schema->resultset('ActionLog')->search()->delete();