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

(-)a/C4/Log.pm (-5 / +14 lines)
Lines 31-36 use File::Basename qw( basename ); Link Here
31
31
32
use C4::Context;
32
use C4::Context;
33
use Koha::Logger;
33
use Koha::Logger;
34
use Koha::ActionLogs;
34
35
35
use vars qw(@ISA @EXPORT);
36
use vars qw(@ISA @EXPORT);
36
37
Lines 111-120 sub logaction { Link Here
111
    }
112
    }
112
    my $trace = @trace ? to_json( \@trace, { utf8 => 1, pretty => 1 } ) : undef;
113
    my $trace = @trace ? to_json( \@trace, { utf8 => 1, pretty => 1 } ) : undef;
113
114
114
    my $dbh = C4::Context->dbh;
115
    Koha::ActionLog->new(
115
    my $sth=$dbh->prepare("Insert into action_logs (timestamp,user,module,action,object,info,interface,script,trace) values (now(),?,?,?,?,?,?,?,?)");
116
        {
116
    $sth->execute( $usernumber, $modulename, $actionname, $objectnumber, $infos, $interface, $script, $trace );
117
            timestamp => \'NOW()',
117
    $sth->finish;
118
            user      => $usernumber,
119
            module    => $modulename,
120
            action    => $actionname,
121
            object    => $objectnumber,
122
            info      => $infos,
123
            interface => $interface,
124
            script    => $script,
125
            trace     => $trace,
126
        }
127
    )->store();
118
128
119
    my $logger = Koha::Logger->get(
129
    my $logger = Koha::Logger->get(
120
        {
130
        {
121
- 

Return to bug 32057