4 |
# Author : Ulrich Pfeifer |
# Author : Ulrich Pfeifer |
5 |
# Created On : Thu Aug 8 13:05:10 1996 |
# Created On : Thu Aug 8 13:05:10 1996 |
6 |
# Last Modified By: Ulrich Pfeifer |
# Last Modified By: Ulrich Pfeifer |
7 |
# Last Modified On: Sun Nov 12 14:20:56 2000 |
# Last Modified On: Sun Nov 12 14:40:21 2000 |
8 |
# Language : CPerl |
# Language : CPerl |
9 |
# |
# |
10 |
# (C) Copyright 1996-2000, Ulrich Pfeifer |
# (C) Copyright 1996-2000, Ulrich Pfeifer |
166 |
return $self->{old_index} = 0; |
return $self->{old_index} = 0; |
167 |
} |
} |
168 |
if ($dbh->seq($word, $value, R_NEXT) or # no values left |
if ($dbh->seq($word, $value, R_NEXT) or # no values left |
169 |
$word !~ /^$O/o # no $O values left |
$word !~ /^$O$;/o # no $O values left |
170 |
) { |
) { |
171 |
# we are not sure enough that this is an old index |
# we are not sure enough that this is an old index |
172 |
return $self->{old_index} = 0; |
return $self->{old_index} = 0; |