View | Details | Raw Unified | Return to bug 7157
Collapse All | Expand All

(-)a/misc/cronjobs/j2a.pl (-2 / +9 lines)
Lines 142-148 $sth->execute( $fromcat ) Link Here
142
my $agelimit = $sth->fetchrow_array();
142
my $agelimit = $sth->fetchrow_array();
143
if ( not $agelimit ) {
143
if ( not $agelimit ) {
144
144
145
	die "No patron category with that category code. Please try again. \n";
145
	die "No patron category $fromcat. Please try again. \n";
146
}
147
$query=qq|SELECT categorycode from categories where categorycode=?|;
148
$sth=$dbh->prepare( $query );
149
$sth->execute( $tocat )
150
	or die "Couldn't execute statement: " . $sth->errstr;
151
my $tocatage = $sth->fetchrow_array();
152
if ( not $tocatage ){
153
	die "No patron category $tocat. Please try again. \n";
146
}
154
}
147
$sth->finish(  );
155
$sth->finish(  );
148
$year -=$agelimit;
156
$year -=$agelimit;
149
- 

Return to bug 7157