| 795 |
|
|
| 796 |
$sth->execute($self->{export_id}->($id)); |
$sth->execute($self->{export_id}->($id)); |
| 797 |
my $state = [ $sth->fetchrow_array() ]; |
my $state = [ $sth->fetchrow_array() ]; |
| 798 |
unless (@$state) { |
croak "no object with id $id" unless (@{$state}); |
| 799 |
return undef unless $sth->err; |
unless (@$state) { |
| 800 |
croak "error during load of object id=$id: $sth->err"; |
return undef unless $sth->err; |
| 801 |
} |
croak "error during load of object id=$id: $sth->err"; |
| 802 |
|
} |
| 803 |
$sth->finish(); |
$sth->finish(); |
| 804 |
|
|
| 805 |
return $state; |
return $state; |
Parent Directory
| 
Revision Log
| 
Patch
