prio => [
{-label => 'Level', -select => sub {
my ($row) = @_;
- my @enum = qw[ essential basic common distinctive optional invisible ];
+ my @enum = qw[
+ essential ubiquitous basic common distinctive specialised rare invisible
+ ];
return {
('' => 'parent') x (defined $row->{ref}),
map { $_ => $enum[$_] } 0 .. $#enum
else {
$row->{lang} //= $user->{editlang}->[0] unless exists $row->{lang};
$row->{$_} = $get{$_} for keys %get;
- $row->{prio} = defined $row->{ref} ? undef : 1 unless exists $row->{prio};
+ $row->{prio} = defined $row->{ref} ? undef : 4 unless exists $row->{prio};
}
eval {