Storage/Result/Tangram.pm

############################################
#
#  $Id$
#
#  $Log$
#
############################################


package Data::Storage::Result::Tangram;

use strict;
use warnings;

use base ("Data::Storage::Result::Abstract");
use Data::Dumper;


sub DESTROY {
  my $self = shift;
  #$logger->debug( __PACKAGE__ . "->" . "DESTROY" );
  $self->{RESULTHANDLE} && $self->{RESULTHANDLE}->close();
}

sub getNextEntry {
  my $self = shift;
  
  return if !$self->{RESULTHANDLE};
  $self->{resulthandle_type} = ref($self->{RESULTHANDLE}) if !$self->{resulthandle_type};
  
  # is result already opened?
  if ($self->{open}) {
    $self->{entry_count}++;
    return $self->{RESULTHANDLE}->next()
      if $self->{resulthandle_type} eq 'Tangram::Cursor';
    return $self->{members}->[$self->{entry_count}]
      if $self->{resulthandle_type} eq 'Set::Object';

  } else {
    # open result
    $self->{open} = 1;
    $self->{entry_count} = 0;
    return $self->{RESULTHANDLE}->execute()
      if $self->{resulthandle_type} eq 'Tangram::Cursor';
    #print Dumper($self->{RESULTHANDLE}->members()); exit;
    if ($self->{resulthandle_type} eq 'Set::Object') {
      my @members = $self->{RESULTHANDLE}->members();
      $self->{members} = \@members;
      return $self->{members}->[$self->{entry_count}];
    }
  }
}

sub getStatus { }

1;
1	joko	1.1	############################################
2			#
3			# $Id$
4			#
5			# $Log$
6			#
7			############################################
8
9
10			package Data::Storage::Result::Tangram;
11
12			use strict;
13			use warnings;
14
15			use base ("Data::Storage::Result::Abstract");
16			use Data::Dumper;
17
18
19			sub DESTROY {
20			my $self = shift;
21			#$logger->debug( __PACKAGE__ . "->" . "DESTROY" );
22			$self->{RESULTHANDLE} && $self->{RESULTHANDLE}->close();
23			}
24
25			sub getNextEntry {
26			my $self = shift;
27
28			return if !$self->{RESULTHANDLE};
29			$self->{resulthandle_type} = ref($self->{RESULTHANDLE}) if !$self->{resulthandle_type};
30
31			# is result already opened?
32			if ($self->{open}) {
33			$self->{entry_count}++;
34			return $self->{RESULTHANDLE}->next()
35			if $self->{resulthandle_type} eq 'Tangram::Cursor';
36			return $self->{members}->[$self->{entry_count}]
37			if $self->{resulthandle_type} eq 'Set::Object';
38
39			} else {
40			# open result
41			$self->{open} = 1;
42			$self->{entry_count} = 0;
43			return $self->{RESULTHANDLE}->execute()
44			if $self->{resulthandle_type} eq 'Tangram::Cursor';
45			#print Dumper($self->{RESULTHANDLE}->members()); exit;
46			if ($self->{resulthandle_type} eq 'Set::Object') {
47			my @members = $self->{RESULTHANDLE}->members();
48			$self->{members} = \@members;
49			return $self->{members}->[$self->{entry_count}];
50			}
51			}
52			}
53
54			sub getStatus { }
55
56			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26