- my $id = (m,^pb/(.*)/meta.yml$,)[0];
- +{ id => $id, name => $meta->{name} } } <pb/*/meta.yml>;
+ my $id = (m,^$path/(.*)/meta.yml$,)[0];
+ +{ id => $id, name => $meta->{name}, level => $meta->{level} } } <$path/*/meta.yml>;
+ for my $d(qw/beginner easy medium advanced hard/) {
+ $htc->param($d => [grep {$_->{level} and $_->{level} eq $d} @problems]);
+ }
+ $htc->param(levels => grep { $_->{level} } @problems);