use C4::Log qw/ logaction /;

use C4::LogStatic qw/ logaction /;

        logaction( 'SYSTEMPREFERENCE', $logtype, undef, $var . " | " . $value );

        logaction( $dbh, userenv(), 'SYSTEMPREFERENCE', $logtype, undef, $var . " | " . $value );

        logaction( 'SYSTEMPREFERENCE', 'DELETE', undef,

        logaction( $dbh, userenv(), 'SYSTEMPREFERENCE', 'DELETE', undef,

- 

package C4::LogStatic;

# This is a very simple logging system, designed to be only used in

# circumstances where C4::Context can't be loaded. Typically, this is

# only in C4::Context itself.

#

# This is intended to be temporary until C4::Context gets refactored to not

# handle things like sysprefs that need logged about.

# Copyright 2000-2002 Katipo Communications

# Copyright 2011 MJ Ray and software.coop

# Copyright 2014 Catalyst IT

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 2 of the License, or (at your option) any later

# version.

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use strict;

use warnings;

use vars qw($VERSION @ISA @EXPORT);

BEGIN {

    # set the version for version checking

    $VERSION = 3.07.00.049;

    require Exporter;

    @ISA = qw(Exporter);

    @EXPORT = qw(&logaction);

}

=head1 NAME

C4::LogStatic - basic logging function for Koha.

=head1 SYNOPSIS

  use C4::LogStatic;

  logaction($dbh, $userenv, "module", "action", $objectnum, "what happened");

=head1 DESCRIPTION

This allows simple logging in situtations where C4::Context can't be loaded.

=head1 FUNCTIONS

=over 2

=item logaction

  logaction($dbh, $userenv, $modulename, $actionname, $objectnumber, $infos);

Adds a record into action_logs table to report the different changes upon the database.

Each log entry includes the number of the user currently logged in.  For batch

jobs, which operate without authenticating a user and setting up a session, the user

number is set to 0, which is the same as the superlibrarian's number.

=cut

#'

sub logaction {

    my ($dbh, $userenv, $modulename, $actionname, $objectnumber, $infos)=@_;

    # Get ID of logged in user.  if called from a batch job,

    # no user session exists and C4::Context->userenv() returns

    # the scalar '0'.

    my $usernumber = (ref($userenv) eq 'HASH') ? $userenv->{'number'} : 0;

    $usernumber ||= 0;

    my $sth=$dbh->prepare("Insert into action_logs (timestamp,user,module,action,object,info) values (now(),?,?,?,?,?)");

    $sth->execute($usernumber,$modulename,$actionname,$objectnumber,$infos);

    $sth->finish;

}

1;

__END__

=back

=head1 AUTHOR

Koha Development Team <http://koha-community.org/>

=cut