+sub complete_categoryname
+{
+ my ($text, $line, $start) = @_;
+
+ return () unless length $line;
+
+ my $sql = sprintf("SELECT DISTINCT category FROM %s WHERE category LIKE '%s%%' ORDER BY category",
+ $table,
+ $line);
+ my $sth = $dbh->prepare($sql);
+ $sth->execute;
+ my @complete;
+ while (my $row = $sth->fetchrow_hashref) {
+ $row->{category} = substr $row->{category}, $start if $start;
+ push @complete, $row->{category};
+ }
+
+ return @complete;
+}
+