use Modern::Perl;
use Koha::Biblios;
use Koha::Items;
my $biblios = Koha::Biblios->search;
my $branchcode='ppa';
while ( my $biblio=$biblios->next){
Koha::Item->new(
{
biblionumber => $biblio->biblionumber,
homebranch => $branchcode,
holdingbranch =>$branchcode,
barcode =>barcode_.$biblio->biblionumber,
itype =>$biblio->biblioitem->itemtype,
}
)->store;
}
_______________________________________________
Koha mailing list http://koha-community.org
Koha@lists.katipo.co.nz
Unsubscribe: https://lists.katipo.co.nz/mailman/listinfo/koha
