--- nfo/perl/libs/DesignPattern/Object.pm	2003/02/18 18:34:35	1.7
+++ nfo/perl/libs/DesignPattern/Object.pm	2003/02/19 00:36:59	1.8
@@ -1,7 +1,11 @@
 ## ---------------------------------------------------------------------------
-##  $Id: Object.pm,v 1.7 2003/02/18 18:34:35 joko Exp $
+##  $Id: Object.pm,v 1.8 2003/02/19 00:36:59 joko Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: Object.pm,v $
+##  Revision 1.8  2003/02/19 00:36:59  joko
+##  + bugfix: this {logger} is the instance itself, so has to be fed with ( level => xyz and namespace => xyz )
+##  + minor modifications in behaviour
+##
 ##  Revision 1.7  2003/02/18 18:34:35  joko
 ##  + fix: just logs if possible (sub log_basic)
 ##
@@ -163,7 +167,8 @@
   # report errors
     if ($@) {
       # build error-messages
-      my $errmsg_native = __PACKAGE__ . ':' . __LINE__ . " Error in eval \"$evstring\": " .  $@;
+      my $issuer = __PACKAGE__ . ':' . __LINE__;
+      my $errmsg_native = "Error in eval: " .  $@;
       #my $classname = $self->{__classname};
       my $errmsg_critical = '';
       if ($errmsg_native =~ m/Can't locate (.+?) in \@INC/) {
@@ -172,7 +177,7 @@
         $errmsg_critical = $errmsg_native;
       }
       # write error to logging-output (console|file|database)
-      $self->log_basic( $errmsg_native, 'debug' );
+      $self->log_basic( $errmsg_native . " (issuer='$issuer', code='$evstring')", 'debug' );
       $self->log_basic( $errmsg_critical, 'warning' );
       return;
     }
@@ -191,6 +196,9 @@
   my $self = shift;
   my $message = shift;
   my $level = shift;
+  
+  #return;
+  $level ||= 'info';
 
   if ($_dp_globals->{TRACE} || ($level && $level =~ /warning|error|critical/)) {
     print $level, ": ", $message, "\n";
@@ -202,7 +210,7 @@
   }
   
   if ($_dp_globals->{logger}) {
-    $_dp_globals->{logger}->log($level, $message);
+    $_dp_globals->{logger}->log( level => $level, message => $message);
   #} else {
     #print $level, ": ", $message, "\n";
   }