sub startup {
my $self = shift;
$self->helper(syspref => sub { C4::Context->preference($_[1]) });
my $route = $self->routes->under->to(
cb => sub {
my $c = shift;
-