Merge branch 'master' of http://manage-gmc.dev.kohalibrary.com/koha-installer
[wip/koha-chris_n.git] / misc / cronjobs / j2a.pl
1 #!/usr/bin/perl 
2 #run nightly -- changes J to A on someone's 18th birthday
3 use strict;
4 BEGIN {
5     # find Koha's Perl modules
6     # test carefully before changing this
7     use FindBin;
8     eval { require "$FindBin::Bin/../kohalib.pl" };
9 }
10
11 use C4::Context;
12 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
13                                             = localtime(time);
14 $year +=1900;
15 $mon +=1; if ($mon < 10) {$mon = "0".$mon;}
16 if ($mday < 10) {$mday = "0".$mday;}
17
18 $year -=18; #18 year olds here: if your J turns to A before this change here
19 my $dbh=C4::Context->dbh;
20
21 #get today's date, format it and subtract 18 yrs.
22 my $itsyourbirthday = "$year-$mon-$mday";
23
24 my $query=qq|UPDATE borrowers 
25            SET categorycode='A',
26             guarantorid ='0'     
27            WHERE dateofbirth<=? 
28            AND dateofbirth!='0000-00-00' 
29            AND categorycode IN (select categorycode from categories where category_type='C')|;
30 my $sth=$dbh->prepare($query);
31 my $res = $sth->execute($itsyourbirthday) or die "can't execute";
32 print "$res\n"; #did it work?
33 $dbh->disconnect();