https://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=30004

--- Comment #9 from Jonathan Druart <[email protected]> ---
(In reply to David Nind from comment #4)
> Is there an easy way to generate 1,000 checkouts for a patron?

The following code will checkout all the items from the DB to the patron with
borrowernumber=51

use Modern::Perl;
use C4::Circulation qw( AddIssue );
use Koha::Items;
use Koha::Patrons;
use t::lib::Mocks;
my $patron = Koha::Patrons->find(51);
t::lib::Mocks::mock_userenv({patron => $patron});
my $items = Koha::Items->search;
my $patron_unblessed = $patron->unblessed;
while ( my $i = $items->next ) {
    AddIssue($patron_unblessed, $i->barcode);
}

-- 
You are receiving this mail because:
You are watching all bug changes.
_______________________________________________
Koha-bugs mailing list
[email protected]
https://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-bugs
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/

Reply via email to