3 # 2009 BibLibre <jeanandre.santoni@biblibre.com>
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
27 use DateTime::TimeZone;
31 # used by the KOCT firefox extension
32 # (or any third-party that doesn't want to rely on cookies for authentication)
33 my $nocookie = $cgi->param('nocookie') || 0;
35 # get the status of the user, this will check his credentials and rights
36 my ($status, $cookie, $sessionId) = C4::Auth::check_api_auth($cgi, undef);
37 ($status, $sessionId) = C4::Auth::check_cookie_auth($cgi, undef) if ($status ne 'ok' && !$nocookie);
41 if ($status eq 'ok') { # if authentication is ok
43 my $userid = $cgi->param('userid') || '';
44 my $branchcode = $cgi->param('branchcode') || '';
45 my $timestamp = $cgi->param('timestamp') || '';
46 my $action = $cgi->param('action') || '';
47 my $barcode = $cgi->param('barcode') || '';
48 my $amount = $cgi->param('amount') || 0;
51 my $cardnumber = $cgi->param('cardnumber') || '';
52 $cardnumber =~ s/^\s+//;
53 $cardnumber =~ s/\s+$//;
55 # KOCT send UTC timestamp, it should be converted to local timezone
56 my $dt = dt_from_string($timestamp, 'iso', DateTime::TimeZone->new(name => 'UTC'));
57 $dt->set_time_zone(C4::Context->tz);
58 $timestamp = $dt->ymd('-') . ' ' . $dt->hms(':');
60 if ( $cgi->param('pending') eq 'true' ) { # if the 'pending' flag is true, we store the operation in the db instead of directly processing them
61 $result = AddOfflineOperation(
71 $result = ProcessOfflineOperation(
74 'branchcode' => $branchcode,
75 'timestamp' => $timestamp,
77 'barcode' => $barcode,
78 'cardnumber' => $cardnumber,
84 print CGI::header('-type'=>'text/plain', '-charset'=>'utf-8');
89 print CGI::header('-type'=>'text/plain', '-charset'=>'utf-8', '-status' => '401 Unauthorized');