#!/usr/bin/perl

use Modern::Perl;
use Koha::Script;
use Koha::Items;
#
# the items.onloan field did not exist in koha 2.2
# in koha 3.0, it's used to define item availability
# this script takes the items.onloan field
# and put it in the MARC::Record of the item
#

my $items = Koha::Items->({ onloan => { '!=' => undef } });

$|=1;
while ( my $item = $items->next ) {
    $item->store;
    print sprintf "Onloan : %s for %s / %s\n", $item->onloan, $item->biblionumber, $item->itemnumber;
}