[Koha-cvs] CVS: koha/misc/cronjobs j2a.pl,NONE,1.1

[Joshua Ferraro]

Update of /cvsroot/koha/koha/misc/cronjobs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32187

Added Files:
        j2a.pl 
Log Message:
Changed the status of a Juvinile patron to Adult on his/her 18th birthday


--- NEW FILE ---

#!/usr/bin/perl -w
#run nightly -- changes J to A on someone's 18th birthday
use lib '/usr/local/koha/intranet/modules/';
use strict;
use C4::Context;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
                                            = localtime(time);
$year +=1900;
$mon +=1; if ($mon < 10) {$mon = "0".$mon;}
if ($mday < 10) {$mday = "0".$mday;}

$year -=18; #18 year olds here: if your J turns to A before this change here
my $dbh=C4::Context->dbh;

#get today's date, format it and subtract 18 yrs.
my $itsyourbirthday = "$year-$mon-$mday";

my $fixit="UPDATE borrowers SET categorycode='A' WHERE dateofbirth<=? AND 
dateofbirth!='0000-00-00' AND categorycode='J'";

my $sth=$dbh->prepare($fixit);
my $res = $sth->execute($itsyourbirthday) or die "can't execute";
print "$res\n"; #did it work?
$dbh->disconnect();