use Koha::Database;
use base 'Exporter';
our (@ISA, @EXPORT_OK);
our @EXPORT = (
BEGIN {
qw(
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
GetPatronLists
DelPatronList
AddPatronsToList
DelPatronsFromList
)
);
}
=head2 GetPatronLists
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth qw/check_api_auth/;
use C4::Auth qw( check_api_auth );
use C4::Biblio;
use C4::Biblio qw( GetFrameworkCode );
use C4::Items;
use XML::Simple;
use CGI;
use JSON qw(to_json);
use C4::Circulation;
use C4::Circulation qw( AddReturn );
use C4::Context;
use C4::Auth qw(check_cookie_auth);
use Koha::Checkouts;
use C4::ImportBatch;
use C4::ImportBatch qw( GetWebserviceBatchId AddBiblioToBatch AddItemsToImportBiblio BatchFindDuplicates BatchCommitRecords );
use C4::Matcher;
# use Carp::Always;
use C4::Auth qw( check_cookie_auth );
use JSON qw( to_json );
use Koha::List::Patron;
use Koha::List::Patron qw( AddPatronList GetPatronLists AddPatronsToList );
my $input = CGI->new;
use Try::Tiny;
use C4::Circulation qw( AddRenewal CanBookBeRenewed );
use C4::Auth qw( get_template_and_user );
use C4::Reports::Guided qw( execute_query );
use Koha::Reports;
use JSON;
use JSON qw( encode_json decode_json );
use Koha::Caches;
-