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 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.
=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
+ 'd|field=s' => \%fields,
+ 'where=s' => \@where,
);
pod2usage(1) if $help;
}
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(\%params)->search_patrons_to_update_category(
+
+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;