--- nfo/perl/libs/Data/Storage.pm	2003/01/30 22:12:17	1.18
+++ nfo/perl/libs/Data/Storage.pm	2003/02/18 19:22:11	1.19
@@ -1,6 +1,6 @@
 ## ------------------------------------------------------------------------
 ##
-##    $Id: Storage.pm,v 1.18 2003/01/30 22:12:17 joko Exp $
+##    $Id: Storage.pm,v 1.19 2003/02/18 19:22:11 joko Exp $
 ##
 ##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>
 ##
@@ -9,6 +9,9 @@
 ## ------------------------------------------------------------------------
 ##
 ##  $Log: Storage.pm,v $
+##  Revision 1.19  2003/02/18 19:22:11  joko
+##  + fixed logging
+##
 ##  Revision 1.18  2003/01/30 22:12:17  joko
 ##  - removed/refactored old code: ->Data::Storage::Handler::Tangram|DBI
 ##
@@ -111,16 +114,20 @@
 
   my $arg_locator = shift;
   my $arg_options = shift;
+  #my @args = @_;
+  #@args ||= ();
 
   if (!$arg_locator) {
     $logger->critical( __PACKAGE__ . "->new: No locator passed in!" );
     return;
   }
+  
+  #print Dumper($arg_locator);
 
   #my $self = { STORAGEHANDLE => undef, @_ };
   my $self = { STORAGEHANDLE => undef, locator => $arg_locator, options => $arg_options };
   #$logger->debug( __PACKAGE__ . "[$self->{locator}->{type}]" . "->new(@_)" );
-  $logger->debug( __PACKAGE__ . "[$arg_locator->{type}]" . "->new(@_)" );
+  $logger->debug( __PACKAGE__ . "[$arg_locator->{type}]" . "->new()" );
   return bless $self, $class;
 }