[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Datasource DBI.pm,1.12,1.13

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Datasource
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2291/lib/OpenInteract2/Datasource

Modified Files:
	DBI.pm 
Log Message:
OIN-81: remove warnings

Index: DBI.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Datasource/DBI.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** DBI.pm	11 Jun 2004 13:09:13 -0000	1.12
--- DBI.pm	27 Sep 2004 13:24:55 -0000	1.13
***************
*** 72,82 ****
      $db->{LongTruncOk} = $ds_info->{long_trunc_ok} || DEFAULT_TRUNC_OK;
  
!     if ( $ds_info->{trace_level} ) {
!         $db->trace( $ds_info->{trace_level} );
!     }
      $log->is_debug &&
          $log->debug( "Extra parameters [LongReadLen: $db->{LongReadLen}] ",
                       "[LongTruncOk: $db->{LongTruncOk}] ",
!                      "[Trace: $ds_info->{trace_level}]" );
      $log->is_info &&
          $log->info( "DBI connection [$ds_name] made ok" );
--- 72,82 ----
      $db->{LongTruncOk} = $ds_info->{long_trunc_ok} || DEFAULT_TRUNC_OK;
  
!     my $trace_level = $ds_info->{trace_level} || '0';
!     $db->trace( $trace_level );
! 
      $log->is_debug &&
          $log->debug( "Extra parameters [LongReadLen: $db->{LongReadLen}] ",
                       "[LongTruncOk: $db->{LongTruncOk}] ",
!                      "[Trace: $trace_level]" );
      $log->is_info &&
          $log->info( "DBI connection [$ds_name] made ok" );