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.
101 # These variables are set by command line options.
102 # They are initially set to default values.
121 pod2usage
(1) if $help;
122 pod2usage
( -verbose
=> 2 ) if $man;
124 if ( not $fromcat && $tocat ) { #make sure we've specified the info we need.
125 print "please specify -help for usage tips.\n";
131 my $dbh = C4
::Context
->dbh;
133 #get today's date, format it and subtract upperagelimit
134 my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
138 if ( $mon < 10 ) { $mon = "0" . $mon; }
139 if ( $mday < 10 ) { $mday = "0" . $mday; }
141 # get the upperagelimit from the category to be transitioned from
142 my $query = qq|SELECT upperagelimit from categories where categorycode
=?
|;
143 my $sth = $dbh->prepare($query);
144 $sth->execute($fromcat)
145 or die "Couldn't execute statement: " . $sth->errstr;
146 my $agelimit = $sth->fetchrow_array();
147 if ( not $agelimit ) {
148 die "No patron category $fromcat. Please try again. \n";
151 $query = qq|SELECT categorycode from categories where categorycode
=?
|;
152 $sth = $dbh->prepare($query);
153 $sth->execute($tocat)
154 or die "Couldn't execute statement: " . $sth->errstr;
155 my $tocatage = $sth->fetchrow_array();
156 if ( not $tocatage ) {
157 die "No patron category $tocat. Please try again. \n";
162 $verbose and print "The age limit for category $fromcat is $agelimit\n";
164 my $itsyourbirthday = "$year-$mon-$mday";
166 if ( not $noaction ) {
167 if ($mybranch) { #yep, we received a specific branch to work on.
168 $verbose and print "Looking for patrons of $mybranch to update from $fromcat to $tocat that were born before $itsyourbirthday\n";
171 SET guarantorid
='0',
173 WHERE dateofbirth
<= ?
174 AND dateofbirth
!= '0000-00-00'
176 AND categorycode IN
(
179 WHERE category_type
= 'C'
182 my $sth = $dbh->prepare($query);
183 my $res = $sth->execute( $tocat, $itsyourbirthday, $mybranch, $fromcat )
184 or die "can't execute";
186 if ( $res eq '0E0' ) {
187 print "No patrons updated\n";
190 print "Updated $res patrons\n";
193 else { # branch was not supplied, processing all branches
194 $verbose and print "Looking in all branches for patrons to update from $fromcat to $tocat that were born before $itsyourbirthday\n";
197 SET guarantorid
= '0',
199 WHERE dateofbirth
<= ?
200 AND dateofbirth
!='0000-00-00'
201 AND categorycode IN
(
204 WHERE category_type
= 'C'
207 my $sth = $dbh->prepare($query);
208 my $res = $sth->execute( $tocat, $itsyourbirthday, $fromcat )
209 or die "can't execute";
211 if ( $res eq '0E0' ) {
212 print "No patrons updated\n";
215 print "Updated $res patrons\n";
222 $verbose and print "Displaying patrons that would be updated from $fromcat to $tocat from $mybranch\n";
229 WHERE dateofbirth
<= ?
230 AND dateofbirth
!= '0000-00-00'
232 AND categorycode IN
(
235 WHERE category_type
= 'C'
239 my $sth = $dbh->prepare($query);
240 $sth->execute( $itsyourbirthday, $mybranch, $fromcat )
241 or die "Couldn't execute statement: " . $sth->errstr;
243 while ( my @res = $sth->fetchrow_array() ) {
244 my $firstname = $res[0];
245 my $surname = $res[1];
246 my $barcode = $res[2];
248 print "$firstname $surname $barcode $birthday\n";
252 $verbose and print "Displaying patrons that would be updated from $fromcat to $tocat.\n";
259 WHERE dateofbirth
<= ?
260 AND dateofbirth
!= '0000-00-00'
261 AND categorycode IN
(
264 WHERE category_type
= 'C'
268 my $sth = $dbh->prepare($query);
269 $sth->execute( $itsyourbirthday, $fromcat )
270 or die "Couldn't execute statement: " . $sth->errstr;
272 while ( my @res = $sth->fetchrow_array() ) {
273 my $firstname = $res[0];
274 my $surname = $res[1];
275 my $barcode = $res[2];
277 print "$firstname $surname $barcode $birthday\n";