3 # 2011 Liz Rea - Northeast Kansas Library System <lrea@nekls.org>
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
23 # find Koha's Perl modules
24 # test carefully before changing this
26 eval { require "$FindBin::Bin/../kohalib.pl" };
29 use Koha
::Script
-cron
;
38 juv2adult.pl - convert juvenile/child patrons from juvenile patron category and category code to corresponding adult patron category and category code when they reach the upper age limit defined in the Patron Categories.
42 juv2adult.pl [ -b=<branchcode> -f=<categorycode> -t=<categorycode> ]
45 --help brief help message
46 --man full documentation
48 -n take no action, display only
49 -b <branchname> only deal with patrons from this library/branch
50 -f <categorycode> change patron category from this category
51 -t <categorycode> change patron category to this category
59 Print a brief help message and exits.
63 Prints the manual page and exits.
67 Verbose. Without this flag set, only fatal errors are reported.
71 No Action. With this flag set, script will report changes but not actually execute them on the database.
75 changes patrons for one specific branch. Use the value in the
76 branches.branchcode table.
80 *required* defines the juvenile category to update. Expects the code from categories.categorycode.
84 *required* defines the category juvenile patrons will be converted to. Expects the code from categories.categorycode.
90 This script is designed to update patrons from juvenile to adult patron types, remove the guarantor, and update their category codes appropriately when they reach the upper age limit defined in the Patron Categories.
94 C<juv2adult.pl> - Suggests that you read this help. :)
96 C<juv2adult.pl> -b=<branchcode> -f=<categorycode> -t=<categorycode> - Processes a single branch, and updates the patron categories from fromcat to tocat.
98 C<juv2adult.pl> -f=<categorycode> -t=<categorycode> -v -n - Processes all branches, shows all messages, and reports the patrons who would be affected. Takes no action on the database.
102 # These variables are set by command line options.
103 # They are initially set to default values.
122 pod2usage
(1) if $help;
123 pod2usage
( -verbose
=> 2 ) if $man;
125 if ( not $fromcat && $tocat ) { #make sure we've specified the info we need.
126 print "please specify -help for usage tips.\n";
132 my $dbh = C4
::Context
->dbh;
133 my $database = Koha
::Database
->new();
134 my $schema = $database->schema;
136 #get today's date, format it and subtract upperagelimit
137 my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
141 if ( $mon < 10 ) { $mon = "0" . $mon; }
142 if ( $mday < 10 ) { $mday = "0" . $mday; }
144 # get the upperagelimit from the category to be transitioned from
145 my $query = qq|SELECT upperagelimit from categories where categorycode
=?
|;
146 my $sth = $dbh->prepare($query);
147 $sth->execute($fromcat)
148 or die "Couldn't execute statement: " . $sth->errstr;
149 my $agelimit = $sth->fetchrow_array();
150 if ( not $agelimit ) {
151 die "No patron category $fromcat. Please try again. \n";
154 $query = qq|SELECT categorycode from categories where categorycode
=?
|;
155 $sth = $dbh->prepare($query);
156 $sth->execute($tocat)
157 or die "Couldn't execute statement: " . $sth->errstr;
158 my $tocatage = $sth->fetchrow_array();
159 if ( not $tocatage ) {
160 die "No patron category $tocat. Please try again. \n";
165 $verbose and print "The age limit for category $fromcat is $agelimit\n";
167 my $itsyourbirthday = "$year-$mon-$mday";
169 if ( not $noaction ) {
170 # Start a transaction since we need to delete from relationships and update borrowers atomically
173 if ($mybranch) { #yep, we received a specific branch to work on.
174 $verbose and print "Looking for patrons of $mybranch to update from $fromcat to $tocat that were born before $itsyourbirthday\n";
176 WHERE dateofbirth
<= ?
177 AND dateofbirth
!= '0000-00-00'
179 AND categorycode IN
(
182 WHERE category_type
= 'C'
187 $schema->storage->txn_begin;
190 DELETE borrower_relationships FROM borrower_relationships
191 LEFT JOIN borrowers ON
( borrowers
.borrowernumber
= borrower_relationships
.guarantee_id
)
194 my $sth = $dbh->prepare($query);
195 $sth->execute( $itsyourbirthday, $mybranch, $fromcat )
203 $sth = $dbh->prepare($query);
204 my $res = $sth->execute( $tocat, $itsyourbirthday, $mybranch, $fromcat )
208 $schema->storage->txn_commit;
210 $schema->storage->txn_rollback;
214 if ( $res eq '0E0' ) {
215 print "No patrons updated\n";
218 print "Updated $res patrons\n";
221 else { # branch was not supplied, processing all branches
222 $verbose and print "Looking in all branches for patrons to update from $fromcat to $tocat that were born before $itsyourbirthday\n";
224 WHERE dateofbirth
<= ?
225 AND dateofbirth
!='0000-00-00'
226 AND categorycode IN
(
229 WHERE category_type
= 'C'
235 DELETE borrower_relationships FROM borrower_relationships
236 LEFT JOIN borrowers ON
( borrowers
.borrowernumber
= borrower_relationships
.guarantee_id
)
239 my $sth = $dbh->prepare($query);
240 $sth->execute( $itsyourbirthday, $fromcat )
248 $sth = $dbh->prepare($query);
249 my $res = $sth->execute( $tocat, $itsyourbirthday, $fromcat )
260 if ( $res eq '0E0' ) {
261 print "No patrons updated\n";
264 print "Updated $res patrons\n";
271 $verbose and print "Displaying patrons that would be updated from $fromcat to $tocat from $mybranch\n";
278 WHERE dateofbirth
<= ?
279 AND dateofbirth
!= '0000-00-00'
281 AND categorycode IN
(
284 WHERE category_type
= 'C'
288 my $sth = $dbh->prepare($query);
289 $sth->execute( $itsyourbirthday, $mybranch, $fromcat )
290 or die "Couldn't execute statement: " . $sth->errstr;
292 while ( my @res = $sth->fetchrow_array() ) {
293 my $firstname = $res[0];
294 my $surname = $res[1];
295 my $barcode = $res[2];
297 print "$firstname $surname $barcode $birthday\n";
301 $verbose and print "Displaying patrons that would be updated from $fromcat to $tocat.\n";
308 WHERE dateofbirth
<= ?
309 AND dateofbirth
!= '0000-00-00'
310 AND categorycode IN
(
313 WHERE category_type
= 'C'
317 my $sth = $dbh->prepare($query);
318 $sth->execute( $itsyourbirthday, $fromcat )
319 or die "Couldn't execute statement: " . $sth->errstr;
322 while ( my @res = $sth->fetchrow_array() ) {
323 my $firstname = $res[0];
324 my $surname = $res[1];
325 my $barcode = $res[2];
327 print "$firstname $surname $barcode $birthday\n";