+
+ # re-create ord column (sorted order) in table
+ sub create_ord {
+
+ my $table = shift;
+
+ $self->{dbh}->begin_work || die $self->{dbh}->errstr();
+
+ my $sql = "select oid from $table order by upper(item)";
+ my $sth = $self->{dbh}->prepare($sql) || die "sql: $sql; ".$self->{dbh}->errstr();
+ $sql = "update $table set ord=? where oid=?";
+ my $sth_update = $self->{dbh}->prepare($sql) || die "sql: $sql; ".$self->{dbh}->errstr();
+ $sth->execute() || die "sql: $sql; ".$self->{dbh}->errstr();
+ my $ord = 1;
+ while (my $row = $sth->fetchrow_hashref) {
+ $sth_update->execute($ord++,$row->{oid});
+ }
+
+ $self->{dbh}->commit || die $self->{dbh}->errstr();
+ }
+ #--- end of sub
+