diff options
| -rw-r--r-- | lib/CatDap/Controller/register.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/CatDap/Controller/register.pm b/lib/CatDap/Controller/register.pm index d52971e..2038e2b 100644 --- a/lib/CatDap/Controller/register.pm +++ b/lib/CatDap/Controller/register.pm @@ -25,6 +25,8 @@ Catalyst Controller. sub index :Path :Args(0) : Form { my ( $self, $c ) = @_; + my $langs = join ',',@{$c->languages}; + $c->log->debug("Languages: $langs, default: " . $c->language . ", saving: " . ${$c->languages}[0]); #my $form = Catalyst::Controller::HTML::FormFu->form(); #$c->response->body('Matched CatDap::Controller::register in register.'); |