| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Cursor/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Cursor/unique.pm |
package Cursor::unique;
# Verhinderung von Mehrfacheintraegen
use strict;
use vars qw(@ISA);
use Cursor::buffered_cursor;
@ISA = qw(Cursor::buffered_cursor);
sub new {
my $class = shift;
my $self = {};
$self->{'CURSOR'} = shift;
bless($self,$class);
return($self);
}
#*************************************************************************
sub restart1 {
my $self = shift;
$self->{'TEXT'} = "-ID-";
$self->sort();
}
#*************************************************************************
sub next1 {
my $self = shift;
my $q = $self->{'CURSOR'}->next();
return() if ($q eq undef);
my $id = $q->{'id'};
my $q1;
while (0 == 0) {
$q1 = $self->{'CURSOR'}->forecast();
last if (!$q1);
last if ($q1->{'id'} ne $q->{'id'});
$q = $self->{'CURSOR'}->next();
}
return($q);
}
#**********************************************************************
1;