3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.6 2003/04/09 07:11:01 joko |
7 |
|
# minor fix |
8 |
|
# |
9 |
# Revision 1.5 2003/04/09 02:09:47 joko |
# Revision 1.5 2003/04/09 02:09:47 joko |
10 |
# bugfix: check for existance of '->close'-method before calling it on the 'RESULTHANDLE'-instance |
# bugfix: check for existance of '->close'-method before calling it on the 'RESULTHANDLE'-instance |
11 |
# |
# |
73 |
sub getStatus { |
sub getStatus { |
74 |
my $self = shift; |
my $self = shift; |
75 |
my $status; |
my $status; |
76 |
|
|
77 |
|
$self->{resulthandle_type} ||= ''; |
78 |
|
|
79 |
if ($self->{resulthandle_type} eq 'Tangram::Cursor') { |
if ($self->{resulthandle_type} eq 'Tangram::Cursor') { |
80 |
=pod |
=pod |
81 |
print Dumper($self->{RESULTHANDLE}); |
print Dumper($self->{RESULTHANDLE}); |