diff options
| author | Buchan Milne <buchan@mageia.org> | 2011-02-20 14:24:48 +0000 |
|---|---|---|
| committer | Buchan Milne <buchan@mageia.org> | 2011-02-20 14:24:48 +0000 |
| commit | d7e655bab45c3d52cbc1a34555bf2bb9d08972b9 (patch) | |
| tree | 1617d4dc127a7d6695ab213047818e5c71279729 | |
| parent | 507ab1d0ffee54d49434197d6c070c9a699d5161 (diff) | |
| download | identity-d7e655bab45c3d52cbc1a34555bf2bb9d08972b9.tar identity-d7e655bab45c3d52cbc1a34555bf2bb9d08972b9.tar.gz identity-d7e655bab45c3d52cbc1a34555bf2bb9d08972b9.tar.bz2 identity-d7e655bab45c3d52cbc1a34555bf2bb9d08972b9.tar.xz identity-d7e655bab45c3d52cbc1a34555bf2bb9d08972b9.zip | |
Add some language debugging
| -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.'); |