View | Details | Raw Unified | Return to bug 16436
Collapse All | Expand All

(-)a/C4/Log.pm (-1 / +4 lines)
Lines 26-31 use warnings; Link Here
26
26
27
use C4::Context;
27
use C4::Context;
28
use Koha::DateUtils;
28
use Koha::DateUtils;
29
use Koha::Logger;
29
30
30
use vars qw(@ISA @EXPORT);
31
use vars qw(@ISA @EXPORT);
31
32
Lines 77-82 sub logaction { Link Here
77
    my $sth=$dbh->prepare("Insert into action_logs (timestamp,user,module,action,object,info) values (now(),?,?,?,?,?)");
78
    my $sth=$dbh->prepare("Insert into action_logs (timestamp,user,module,action,object,info) values (now(),?,?,?,?,?)");
78
    $sth->execute($usernumber,$modulename,$actionname,$objectnumber,$infos);
79
    $sth->execute($usernumber,$modulename,$actionname,$objectnumber,$infos);
79
    $sth->finish;
80
    $sth->finish;
81
82
    my $logger = Koha::Logger->get( { interface => 'intranet', category => "ActionLogs.$modulename.$actionname" } );
83
    $logger->info( Data::Dumper::Dumper( { user => $usernumber, module => $modulename, action => $actionname, object => $objectnumber, info => $infos } ) );
80
}
84
}
81
85
82
=item cronlogaction
86
=item cronlogaction
83
- 

Return to bug 16436