Commit 30396e6a authored by Arne Köhn's avatar Arne Köhn

+tsetbox, testsets are now displayed in a box

parent f2de7e9d
......@@ -159,6 +159,21 @@ my @taggers;
$taggerbox->values(@taggers);
$free_hosts->enqueue(split(/,/,$cfg{'hosts'}));
sub update_tsetbox {
my $sth = $dbh->prepare('SELECT * FROM tsets ORDER BY numtrain');
my %tsethash;
my @keys;
$sth->execute();
while (my $result = $sth->fetchrow_hashref) {
my $id = $result->{'id'};
push @keys, $id;
$tsethash{$id}=$result->{'numtrain'}.' - '.$id;
}
$tsetbox->values(@keys);
$tsetbox->labels(\%tsethash);
}
update_tsetbox();
sub train_tagger {
my $tagger = shift;
......@@ -213,6 +228,7 @@ sub create_tset {
);
close $test;
close $train;
update_tsetbox();
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment