3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.3 2003/01/31 06:34:49 joko |
7 |
|
# + fixes to 'getNextEntry' and 'getStatus' |
8 |
|
# |
9 |
# Revision 1.2 2002/12/05 08:01:26 joko |
# Revision 1.2 2002/12/05 08:01:26 joko |
10 |
# + sub getStatus utilizing isEmpty to determine if result is set/unset and/or filled/unfilled |
# + sub getStatus utilizing isEmpty to determine if result is set/unset and/or filled/unfilled |
11 |
# |
# |
48 |
# open result! |
# open result! |
49 |
} else { |
} else { |
50 |
$self->{entry_count} = 0; |
$self->{entry_count} = 0; |
51 |
|
$self->{open} = 1; |
52 |
|
|
53 |
return $self->{RESULTHANDLE}->execute() |
return $self->{RESULTHANDLE}->execute() |
54 |
if $self->{resulthandle_type} eq 'Tangram::Cursor'; |
if $self->{resulthandle_type} eq 'Tangram::Cursor'; |
55 |
#print Dumper($self->{RESULTHANDLE}->members()); exit; |
#print Dumper($self->{RESULTHANDLE}->members()); exit; |
58 |
$self->{members} = \@members; |
$self->{members} = \@members; |
59 |
return $self->{members}->[$self->{entry_count}]; |
return $self->{members}->[$self->{entry_count}]; |
60 |
} |
} |
|
$self->{open} = 1; |
|
61 |
} |
} |
62 |
} |
} |
63 |
|
|
65 |
my $self = shift; |
my $self = shift; |
66 |
my $status; |
my $status; |
67 |
if ($self->{resulthandle_type} eq 'Tangram::Cursor') { |
if ($self->{resulthandle_type} eq 'Tangram::Cursor') { |
68 |
|
=pod |
69 |
|
print Dumper($self->{RESULTHANDLE}); |
70 |
$status = { |
$status = { |
71 |
err => $self->{RESULTHANDLE}->err, |
err => $self->{RESULTHANDLE}->err, |
72 |
errstr => $self->{RESULTHANDLE}->errstr, |
errstr => $self->{RESULTHANDLE}->errstr, |
73 |
state => $self->{RESULTHANDLE}->state, |
state => $self->{RESULTHANDLE}->state, |
74 |
}; |
}; |
75 |
|
=cut |
76 |
} |
} |
77 |
if ($self->{resulthandle_type} eq 'Set::Object') { |
if ($self->{resulthandle_type} eq 'Set::Object') { |
78 |
#print Dumper($self->{RESULTHANDLE}->members()); |
#print Dumper($self->{RESULTHANDLE}->members()); |