our @ISA = qw/Gruntmaster::Page::Base/;
our $VERSION = '0.001';
-use constant TEMPLATES => {
- en => <<'HTML',
-<h1><tmpl_var name></h1>
-Town: <tmpl_var town><br>
-University: <tmpl_var university><br>
-Level: <tmpl_var level>
-HTML
-};
-
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);