--- nfo/perl/libs/Data/Storage/Handler/DBI.pm	2003/04/11 01:17:18	1.16
+++ nfo/perl/libs/Data/Storage/Handler/DBI.pm	2004/06/19 01:49:47	1.17
@@ -1,8 +1,11 @@
 #################################
 #
-#  $Id: DBI.pm,v 1.16 2003/04/11 01:17:18 joko Exp $
+#  $Id: DBI.pm,v 1.17 2004/06/19 01:49:47 joko Exp $
 #
 #  $Log: DBI.pm,v $
+#  Revision 1.17  2004/06/19 01:49:47  joko
+#  (re-)activated "getCOREHANDLE"
+#
 #  Revision 1.16  2003/04/11 01:17:18  joko
 #  sendQuery:
 #  + introduced crud action 'DELETE'
@@ -315,7 +318,7 @@
   
 }
 
-sub getCOREHANDLE2 {
+sub getCOREHANDLE {
   my $self = shift;
   return $self->{_COREHANDLE};
 }