cronlogaction();
my $dbh=C4::Context->dbh;
-my @branches = C4::Branch::GetBranches();
#get today's date, format it and subtract upperagelimit
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year +=1900;
} else { print "Updated $res patrons\n"; }
} else { # branch was not supplied, processing all branches
$verbose and print "Looking in all branches for patrons to update from $fromcat to $tocat that were born before $itsyourbirthday\n";
- foreach my $branchcode (@branches) {
my $query=qq|UPDATE borrowers
SET guarantorid ='0',
categorycode =?
if ($res eq '0E0') { print "No patrons updated\n";
} else { print "Updated $res patrons\n"; }
}
- }
} else {
my $birthday;
if ( $mybranch ) {