|
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 |
- |
|
|