@@ -, +, @@ 'ACQUITISIONS' --- C4/Letters.pm | 3 ++- installer/data/mysql/atomicupdate/claimslog.perl | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) --- a/C4/Letters.pm +++ a/C4/Letters.pm @@ -534,8 +534,9 @@ sub SendAlerts { return { error => $error } unless $success; + my $module = $action eq 'ACQUISITION ORDER' ? 'ACQUISITIONS' : 'CLAIMS'; logaction( - "CLAIMS", + $module, $action, undef, "To=" --- a/installer/data/mysql/atomicupdate/claimslog.perl +++ a/installer/data/mysql/atomicupdate/claimslog.perl @@ -2,7 +2,7 @@ $DBversion = 'XXX'; # will be replaced by the RM if ( CheckVersion($DBversion) ) { $dbh->do(q{ UPDATE action_logs SET module = 'CLAIMS' - WHERE module = 'ACQUISITIONS' AND ( action = 'SERIAL CLAIM' OR action = 'ACQUISITION ORDER' OR action = 'ACQUISITION CLAIM') + WHERE module = 'ACQUISITIONS' AND ( action = 'SERIAL CLAIM' OR action = 'ACQUISITION CLAIM') }); $dbh->do(q{ --