59 |
my $self = shift; |
my $self = shift; |
60 |
|
|
61 |
my $field = shift; |
my $field = shift; |
62 |
my $index_data = shift; |
my $index_data = shift || return; |
63 |
my $ident = shift; # e.g. library id |
my $ident = shift || return; # e.g. library id |
64 |
|
|
65 |
if (! $index_data) { |
if (! $index_data) { |
66 |
print STDERR "\$index->insert() -- no value to insert\n"; |
print STDERR "\$index->insert() -- no value to insert\n"; |
115 |
|
|
116 |
my @sql_args; |
my @sql_args; |
117 |
|
|
118 |
my $sql = "select $what from $field"; |
my $sql = "select $what,ord from $field"; |
119 |
|
|
120 |
if ($where) { |
if ($where) { |
121 |
my $sql2 = " select ord from $field where upper($what) like upper(?)||'%'"; |
my $sql2 = " select ord from $field where upper($what) like upper(?)||'%'"; |
123 |
|
|
124 |
$sth->execute($where) || die "sql2: $sql2; ".$self->{dbh}->errstr(); |
$sth->execute($where) || die "sql2: $sql2; ".$self->{dbh}->errstr(); |
125 |
if (my $row = $sth->fetchrow_hashref) { |
if (my $row = $sth->fetchrow_hashref) { |
126 |
$from_ord += $row->{ord}; |
$from_ord += $row->{ord} - 1; |
127 |
} |
} |
128 |
} |
} |
129 |
$sql .= " order by ord limit $rows offset $from_ord"; |
$sql .= " order by ord limit $rows offset $from_ord"; |