use Modern::Perl;
-BEGIN {
- # find Koha's Perl modules
- # test carefully before changing this
- use FindBin;
- eval { require "$FindBin::Bin/../kohalib.pl" };
-}
-
use C4::Context;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
use Koha::Logger;
use Koha::Patrons;
use Koha::Patron::Categories;
-use Koha::DateUtils;
-use Data::Dumper;
+use Koha::DateUtils qw( dt_from_string );
+use Koha::Script -cron;
=head1 NAME
update_patrons_category.pl --help | --man
Options:
+
--help brief help message
--man full documentation
-too_old update if over maximum age for current category
-fu=X --fineunder=X update if fines under X amount
-rb=date --regbefore update if registration date is before given date
-ra=date --regafter update if registration date is after a given date
- -d --dbfield name=value where <name> is a column in the borrowers table, patrons will be updated if the field is equal to given <value>
+ -d --field name=value where <name> is a column in the borrowers table, patrons will be updated if the field is equal to given <value>
+ --where <conditions> where clause to add to the query
-v -verbose verbose mode
-c --confirm commit changes to db, no action will be taken unless this switch is included
-b --branch <branchname> only deal with patrons from this library/branch
Prints the manual page and exits.
-=item B<--verbosse | -v>
+=item B<--verbose | -v>
Verbose. Without this flag set, only fatal errors are reported.
Supply a number and only account with fines over this number will be updated.
-=item B<==fineunder=X | -fu=X>
+=item B<--fineunder=X | -fu=X>
Supply a number and only account with fines under this number will be updated.
=item B<--field column=value | -d column=value>
-Use this flag to specify a column in the borrowers table and update only patrons whose value in that column matches the value supplied (repeatable)
+Use this flag to specify a column in the borrowers table and update only patrons whose value in that column equals the value supplied (repeatable)
+A value of null will check for a field that is not set.
e.g.
--field dateexpiry=2016-01-01
will update all patrons who expired on that date, useful for schools etc.
+=item B<--where $conditions>
+
+Use this option to specify a condition built with columns from the borrowers table
+
+e.g.
+--where 'email IS NULL'
+will update all patrons with no value for email
+
=back
=head1 DESCRIPTION
my $reg_aft;
my $branch_lim;
my %fields;
+my @where;
GetOptions(
'help|?' => \$help,
'rb|regbefore=s' => \$reg_bef,
'ra|regafter=s' => \$reg_aft,
'b|branch=s' => \$branch_lim,
- 'd|field=s' => \%fields
-) or pod2usage(2);
+ 'd|field=s' => \%fields,
+ 'where=s' => \@where,
+);
+
pod2usage(1) if $help;
-pod2usage( -verbose => 2 ) if $man;
-warn "v $verbose c $doit f $fromcat t $tocat";
-exit;
+pod2usage( -verbose => 2 ) if $man;
if ( not $fromcat && $tocat ) { #make sure we've specified the info we need.
- print
-"Must supply category from and to (-f & -t) please specify -help for usage tips.\n";
+ print "Must supply category from and to (-f & -t) please specify -help for usage tips.\n";
+ pod2usage(1);
exit;
}
( $verbose && !$doit ) and print "No actions will be taken (test mode)\n";
-$verbose
- and print
-"Will update patrons from $fromcat to $tocat with conditions below (if any)\n";
+$verbose and print "Will update patrons from $fromcat to $tocat with conditions below (if any)\n";
my %params;
if ( defined $reg_bef ) {
eval { $date_bef = dt_from_string( $reg_bef, 'iso' ); };
}
- die
-"$reg_bef is not a valid date before, aborting! Use a date in format YYYY-MM-DD.$@"
- if $@;
+ die "$reg_bef is not a valid date before, aborting! Use a date in format YYYY-MM-DD.$@"
+ if $@;
if ( defined $reg_aft ) {
eval { $date_aft = dt_from_string( $reg_aft, 'iso' ); };
}
- die
-"$reg_bef is not a valid date after, aborting! Use a date in format YYYY-MM-DD.$@"
- if $@;
+ die "$reg_bef is not a valid date after, aborting! Use a date in format YYYY-MM-DD.$@"
+ if $@;
$params{dateenrolled}{'<='} = $reg_bef if defined $date_bef;
$params{dateenrolled}{'>='} = $reg_aft if defined $date_aft;
}
}
while ( my ( $key, $value ) = each %fields ) {
- $verbose and print " Borrower column $key is equal to $value\n";
+ $verbose and print " Borrower column $key is $value\n";
+ $value = undef if lc($value) eq 'null';
$params{ "me." . $key } = $value;
}
-my $target_patrons = Koha::Patrons->search({ search_params => \%params })->search_patrons_to_update(
+my $where_literal = join ' AND ', @where;
+my $target_patrons = Koha::Patrons->search( \%params );
+$target_patrons = $target_patrons->search( \$where_literal ) if @where;
+$target_patrons = $target_patrons->search_patrons_to_update_category(
{
from => $fromcat,
search_params => \%params,
fine_max => $fine_max,
}
);
+
my $patrons_found = $target_patrons->count;
my $actually_updated = 0;
my $testdisplay = $doit ? "" : "WOULD HAVE ";
if ($verbose) {
while ( my $target_patron = $target_patrons->next() ) {
- my $target = Koha::Patrons->find( $target_patron->borrowernumber );
+ $target_patron->discard_changes();
$verbose
and print $testdisplay
. "Updated "
- . $target->firstname . " "
- . $target->surname
+ . $target_patron->firstname() . " "
+ . $target_patron->surname()
. " from $fromcat to $tocat\n";
}
$target_patrons->reset;
}
if ($doit) {
- $actually_updated = $target_patrons->update_category( { to => $tocat } );
+ $actually_updated = $target_patrons->update_category_to( { category => $tocat } );
}
$verbose and print "$patrons_found found, $actually_updated updated\n";