# subs to deal with offline circulation

    push @EXPORT, qw(

      &GetOfflineOperations

      &GetOfflineOperation

      &AddOfflineOperation

      &DeleteOfflineOperation

      &ProcessOfflineOperation

    );

sub GetOfflineOperations {

	my $dbh = C4::Context->dbh;

	my $sth = $dbh->prepare("SELECT * FROM pending_offline_operations WHERE branchcode=? ORDER BY timestamp");

	$sth->execute(C4::Context->userenv->{'branch'});

	my $results = $sth->fetchall_arrayref({});

	$sth->finish;

	return $results;

}

sub GetOfflineOperation {

	my $dbh = C4::Context->dbh;

	my $sth = $dbh->prepare("SELECT * FROM pending_offline_operations WHERE operationid=?");

	$sth->execute( shift );

	my $result = $sth->fetchrow_hashref;

	$sth->finish;

	return $result;

}

sub AddOfflineOperation {

	my $dbh = C4::Context->dbh;

	warn Data::Dumper::Dumper(@_);

	my $sth = $dbh->prepare("INSERT INTO pending_offline_operations VALUES('',?,?,?,?,?,?)");

	$sth->execute( @_ );

	return "Added.";

}

sub DeleteOfflineOperation {

	my $dbh = C4::Context->dbh;

	my $sth = $dbh->prepare("DELETE FROM pending_offline_operations WHERE operationid=?");

	$sth->execute( shift );

	return "Deleted.";

}

sub ProcessOfflineOperation {

	my $operation = shift;

    my $report;

	if ( $operation->{action} eq 'return' ) {

        $report = ProcessOfflineReturn( $operation );

	} elsif ( $operation->{action} eq 'issue' ) {

	    $report = ProcessOfflineIssue( $operation );

	}

	DeleteOfflineOperation( $operation->{operationid} ) if $operation->{operationid};

	return $report;

}

sub ProcessOfflineReturn {

    my $operation = shift;

    my $itemnumber = C4::Items::GetItemnumberFromBarcode( $operation->{barcode} );

    if ( $itemnumber ) {

        my $issue = GetOpenIssue( $itemnumber );

        if ( $issue ) {

            MarkIssueReturned(

                $issue->{borrowernumber},

                $itemnumber,

                undef,

                $operation->{timestamp},

            );

            ModItem(

                { renewals => 0, onloan => undef },

                $issue->{'biblionumber'},

                $itemnumber

            );

            return "Success.";

        } else {

            return "Item not issued.";

        }

    } else {

        return "Item not found.";

    }

}

sub ProcessOfflineIssue {

    my $operation = shift;

    my $borrower = C4::Members::GetMemberDetails( undef, $operation->{cardnumber} ); # Get borrower from operation cardnumber

    if ( $borrower->{borrowernumber} ) {

        my $itemnumber = C4::Items::GetItemnumberFromBarcode( $operation->{barcode} );

        unless ($itemnumber) {

            return "barcode not found";

        }

        my $issue = GetOpenIssue( $itemnumber );

        if ( $issue and ( $issue->{borrowernumber} ne $borrower->{borrowernumber} ) ) { # Item already issued to another borrower, mark it returned

            MarkIssueReturned(

                $issue->{borrowernumber},

                $itemnumber,

                undef,

                $operation->{timestamp},

            );

        }

        AddIssue(

            $borrower,

            $operation->{'barcode'},

            undef,

            1,

            $operation->{timestamp},

            undef,

        );

        return "Success.";

    } else {

        return "Borrower not found.";

    }

}

-- Table structure for table `pending_offline_operations`

--

-- this table is MyISAM, InnoDB tables are growing only and this table is filled/emptied/filled/emptied...

-- so MyISAM is better in this case

CREATE TABLE `pending_offline_operations` (

  `operationid` int(11) NOT NULL AUTO_INCREMENT,

  `userid` varchar(30) NOT NULL,

  `branchcode` varchar(10) NOT NULL,

  `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,

  `action` varchar(10) NOT NULL,

  `barcode` varchar(20) NOT NULL,

  `cardnumber` varchar(16) DEFAULT NULL,

  PRIMARY KEY (`operationid`)

) ENGINE=MyISAM DEFAULT CHARSET=utf8;

--

$DBversion = "3.05.00.XXX";

if (C4::Context->preference("Version") < TransformToNum($DBversion)) {

    $dbh->do("CREATE TABLE `pending_offline_operations` ( `operationid` int(11) NOT NULL AUTO_INCREMENT, `userid` varchar(30) NOT NULL, `branchcode` varchar(10) NOT NULL, `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP, `action` varchar(10) NOT NULL, `barcode` varchar(20) NOT NULL, `cardnumber` varchar(16) DEFAULT NULL, PRIMARY KEY (`operationid`) ) ENGINE=MyISAM DEFAULT CHARSET=utf8;");

    print "Upgrade to $DBversion done ( adding offline operations table )\n";

    SetVersion($DBversion);

}

			<li><a href="/cgi-bin/koha/offline_circ/list.pl">Offline Circulation</a> (Firefox module: https://addons.mozilla.org/fr/firefox/addon/koct/)</li>

    [% INCLUDE "doc-head-open.inc" %]

    <title>Koha &rsaquo; Circulation &rsaquo; Offline Circulation</title>

    [% INCLUDE "doc-head-close.inc" %]

    <script type="text/javascript" src="[% themelang %]/lib/jquery/plugins/jquery.tablesorter.min.js"></script>

    <script type="text/javascript" language="javascript">

        $(document).ready(function() {

            $('#checkall').click(function() {

                $(":checkbox").attr('checked', $('#checkall').is(':checked'));

            });

            $('#process,#delete').click(function() {

                var action = $(this).attr("id");

                $(":checkbox[name=operationid]:checked").each(function() {

                    var cb = $(this);

                    $.ajax({

                        url: "process.pl",

                        data: { 'action': action, 'operationid': this.value },

                        async: false,

                        dataType: "text",

                        success: function(data) {

                            cb.replaceWith(data);

                        }});

                });

                if( $('#operations tbody :checkbox').size() == 0 ) {

                    $('#actions').hide();

                }

            });

        });

    </script>

</head>

<body>

    [% INCLUDE 'header.inc' %]

    [% INCLUDE 'circ-search.inc' %]

    <div id="breadcrumbs"><a href="/cgi-bin/koha/mainpage.pl">Home</a> &rsaquo; <a href="/cgi-bin/koha/circ/circulation-home.pl">Circulation</a> &rsaquo; Offline Circulation</div>

    <div id="doc" class="yui-t7">

	    <div id="bd">

	    <h2>Offline Circulation</h2>

	    [% IF ( pending_operations ) %]

	        <form>

	        <table id="operations">

	            <thead>

		            <tr>

		                <th><input type="checkbox" name="checkall" id="checkall" /></th>

			            <th>Date</th>

			            <th>Action</th>

			            <th>Barcode</th>

			            <th>Cardnumber</th>

		            </tr>

		        </thead>

		        <tbody>

		            [% FOREACH operation IN pending_operations %]

		                <tr class="oc-[% operation.action %]">

		                    <td><input type="checkbox" name="operationid" value="[% operation.operationid %]" /></td>

			                <td>[% operation.timestamp %]</td>

			                <td>[% operation.action %]</td>

			                <td>

			                    [% IF ( biblionumber ) %]

			                        <a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% operation.biblionumber %]" title="[% operation.bibliotitle %]">[% operation.barcode %]</a>

			                    [% ELSE %]

			                        <span class="error">[% operation.barcode %]</span>

			                    [% END %]

			                </td>

			                <td>

			                [% IF ( operation.actionissue ) %]

		                        [% IF ( operation.borrowernumber ) %]

		                            <a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% operation.borrowernumber %]" title="[% operation.borrower %]">[% operation.cardnumber %]</a>

		                        [% ELSE %]

		                            <span class="error">[% operation.cardnumber %]</span>

		                        [% END %]

			                [% END %]

			                </td>

		                </tr>

		            [% END %]

		        </tbody>

	        </table>

            <p id="actions">For the selected operations:

            <input type="button" id="process" value="Process" />

            <input type="button" id="delete" value="Delete" /></p>

            </form>

        [% ELSE %]

            <p>There is no pending offline operations.</p>

        [% END %]

    </div>

    [% INCLUDE 'intranet-bottom.inc' %]

#!/usr/bin/perl

# 2009 BibLibre <jeanandre.santoni@biblibre.com>

# 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., 59 Temple Place,

# Suite 330, Boston, MA  02111-1307 USA

#

use CGI;

use C4::Output;

use C4::Auth;

use C4::Koha;

use C4::Context;

use C4::Circulation;

use C4::Branch;

use C4::Members;

use C4::Biblio;

my $query = CGI->new;

my ($template, $loggedinuser, $cookie) = get_template_and_user({

    template_name => "offline_circ/list.tmpl",

    query => $query,

    type => "intranet",

    authnotrequired => 0,

    flagsrequired   => { circulate => "circulate_remaining_permissions" },

});

my $operations = GetOfflineOperations;

for (@$operations) {

	my $biblio             = GetBiblioFromItemNumber(undef, $_->{'barcode'});

	$_->{'bibliotitle'}    = $biblio->{'title'};

	$_->{'biblionumber'}   = $biblio->{'biblionumber'};

	my $borrower           = GetMemberDetails(undef,$_->{'cardnumber'});

	$_->{'borrowernumber'} = $borrower->{'borrowernumber'};

	$_->{'borrower'}       = join(' ', $borrower->{'firstname'}, $borrower->{'surname'});

	$_->{'actionissue'}    = $_->{'action'} eq 'issue';

	$_->{'actionreturn'}   = $_->{'action'} eq 'return';

}

$template->param(pending_operations => $operations);

output_html_with_http_headers $query, $cookie, $template->output;

#!/usr/bin/perl

# 2009 BibLibre <jeanandre.santoni@biblibre.com>

# 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., 59 Temple Place,

# Suite 330, Boston, MA  02111-1307 USA

#

use CGI;

use C4::Auth;

use C4::Circulation;

my $query = CGI->new;

my ($template, $loggedinuser, $cookie) = get_template_and_user({

    template_name => "offline_circ/list.tmpl",

    query => $query,

    type => "intranet",

    authnotrequired => 0,

    flagsrequired   => { circulate => "circulate_remaining_permissions" },

});

my $operationid = $query->param('operationid');

my $action = $query->param('action');

my $result;

if ( $action eq 'process' ) {

    my $operation = GetOfflineOperation( $operationid );

    $result = ProcessOfflineOperation( $operation );

} elsif ( $action eq 'delete' ) {

    $result = DeleteOfflineOperation( $operationid );

}

print CGI::header('-type'=>'text/plain', '-charset'=>'utf-8');

print $result;