20 lines
492 B
Perl
Executable File
20 lines
492 B
Perl
Executable File
#!/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;
|
|
}
|