};
sub _generate{
- my ($self, $htc, $path, $lang) = @_;
-
- $path =~ m,^us/([^/]+)\.html$,;
- local $_ = $1;
+ my ($self, $htc, $lang, $env, $us) = @_;
+ debug $env => "language is '$lang', user is '$us'";
+ local $_ = $us;
$htc->param(name => user_name);
$htc->param(town => user_town);