diff options
Diffstat (limited to 'GroLUG/lib')
-rw-r--r-- | GroLUG/lib/GroLUG/C/Iscritti.pm | 2 | ||||
-rw-r--r-- | GroLUG/lib/GroLUG/LogAppender.pm | 10 |
2 files changed, 12 insertions, 0 deletions
diff --git a/GroLUG/lib/GroLUG/C/Iscritti.pm b/GroLUG/lib/GroLUG/C/Iscritti.pm index 61ac283..ee6ee0c 100644 --- a/GroLUG/lib/GroLUG/C/Iscritti.pm +++ b/GroLUG/lib/GroLUG/C/Iscritti.pm @@ -25,6 +25,8 @@ sub index :Private { sub iscritto :Global { my ($self,$c,$id)=@_; + $c->log->info($c->user->id,"scheda iscritto $id"); + $c->stash->{iscritto}=GroLUG::M::DB->resultset('Iscritto')->find($id); $c->stash->{template}='scheda-iscritto.tt2'; diff --git a/GroLUG/lib/GroLUG/LogAppender.pm b/GroLUG/lib/GroLUG/LogAppender.pm new file mode 100644 index 0000000..81723ef --- /dev/null +++ b/GroLUG/lib/GroLUG/LogAppender.pm @@ -0,0 +1,10 @@ +package GroLUG::LogAppender; +use base 'Log::Log4perl::Appender::DBI'; + +sub _init { + my ($self)=@_; + + $self->{dbh}=GroLUG::M::DB->storage->dbh; +} + +1; |