our @ISA = qw/Gruntmaster::Page::Base/;
our $VERSION = '0.001';
-use constant TEMPLATES => {
- en => <<'HTML',
-<ul><tmpl_loop users><li><a href="<tmpl_var id>.var"><tmpl_var name></a>
-</tmpl_loop></ul>
-HTML
-};
-
sub _generate{
- my ($self, $htc, $path, $lang) = @_;
+ my ($self, $htc, $lang, $env) = @_;
+ debug $env => "language is '$lang'";
- $htc->param(users => [ map { {id => $_, name => user_name} } users ]);
+ $htc->param(users => [ sort { lc $a->{name} cmp lc $b->{name} }
+ map { {id => $_, name => user_name} }
+ grep { user_name =~ /\w/ } users ]);
}
1