From 5faf29a0dc09f32d0f797c42a8933c726132051d Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Thu, 9 Feb 2006 13:19:19 +0000
Subject: funziona il log su db

git-svn-id: svn://luxion/repos/IscrittiGroLUG/trunk@174 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 GroLUG/lib/GroLUG/C/Iscritti.pm  |  2 ++
 GroLUG/lib/GroLUG/LogAppender.pm | 10 ++++++++++
 2 files changed, 12 insertions(+)
 create mode 100644 GroLUG/lib/GroLUG/LogAppender.pm

(limited to 'GroLUG/lib')

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;
-- 
cgit v1.2.3