[otrs-cvs] CVS: otrs/Kernel/System DB.pm,1.51,1.52

cvs-log at otrs.org cvs-log at otrs.org
Tue May 2 09:07:24 CEST 2006


Update of /home/cvs/otrs/Kernel/System
In directory lancelot:/tmp/cvs-serv20886/Kernel/System

Modified Files:
	DB.pm 
Log Message:
formated the code

Index: DB.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/DB.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -r1.51 -r1.52
*** DB.pm	10 Mar 2006 06:37:31 -0000	1.51
--- DB.pm	2 May 2006 06:07:22 -0000	1.52
***************
*** 183,189 ****
      if ($Self->{Debug} > 2) {
          $Self->{LogObject}->Log(
!           Caller => 1,
!           Priority => 'debug',
!           Message => "DB.pm->Connect: DSN: $Self->{DSN}, User: $Self->{USER}, Pw: $Self->{PW}, DB Type: $Self->{'DB::Type'};",
          );
      }
--- 183,189 ----
      if ($Self->{Debug} > 2) {
          $Self->{LogObject}->Log(
!             Caller   => 1,
!             Priority => 'debug',
!             Message  => "DB.pm->Connect: DSN: $Self->{DSN}, User: $Self->{USER}, Pw: $Self->{PW}, DB Type: $Self->{'DB::Type'};",
          );
      }
***************
*** 191,197 ****
      if (!($Self->{dbh} = DBI->connect("$Self->{DSN}", $Self->{USER}, $Self->{PW}, $Self->{'DB::Attribute'}))) {
          $Self->{LogObject}->Log(
!             Caller => 1,
              Priority => 'Error',
!             Message => $DBI::errstr,
          );
          return;
--- 191,197 ----
      if (!($Self->{dbh} = DBI->connect("$Self->{DSN}", $Self->{USER}, $Self->{PW}, $Self->{'DB::Attribute'}))) {
          $Self->{LogObject}->Log(
!             Caller   => 1,
              Priority => 'Error',
!             Message  => $DBI::errstr,
          );
          return;
***************
*** 211,217 ****
      if ($Self->{Debug} > 2) {
          $Self->{LogObject}->Log(
!             Caller => 1,
              Priority => 'debug',
!             Message => "DB.pm->Disconnect",
          );
      }
--- 211,217 ----
      if ($Self->{Debug} > 2) {
          $Self->{LogObject}->Log(
!             Caller   => 1,
              Priority => 'debug',
!             Message  => "DB.pm->Disconnect",
          );
      }
***************
*** 265,271 ****
          if ($Text !~ /^(\+|\-|)(\d{1,20}|\d{1,20}\.\d{1,20})$/) {
              $Self->{LogObject}->Log(
!                 Caller => 1,
                  Priority => 'error',
!                 Message => "Invalid number in query '$Text'!",
              );
              return '';
--- 265,271 ----
          if ($Text !~ /^(\+|\-|)(\d{1,20}|\d{1,20}\.\d{1,20})$/) {
              $Self->{LogObject}->Log(
!                 Caller   => 1,
                  Priority => 'error',
!                 Message  => "Invalid number in query '$Text'!",
              );
              return '';
***************
*** 370,376 ****
          $Self->{DoCounter}++;
          $Self->{LogObject}->Log(
!             Caller => 1,
              Priority => 'debug',
!             Message => "DB.pm->Do ($Self->{DoCounter}) SQL: '$Param{SQL}'",
          );
      }
--- 370,376 ----
          $Self->{DoCounter}++;
          $Self->{LogObject}->Log(
!             Caller   => 1,
              Priority => 'debug',
!             Message  => "DB.pm->Do ($Self->{DoCounter}) SQL: '$Param{SQL}'",
          );
      }
***************
*** 378,384 ****
      if (!$Self->{dbh}->do($Param{SQL}, undef, @Array)) {
          $Self->{LogObject}->Log(
!             Caller => 1,
              Priority => 'Error',
!             Message => "$DBI::errstr, SQL: '$Param{SQL}'",
          );
          return;
--- 378,384 ----
      if (!$Self->{dbh}->do($Param{SQL}, undef, @Array)) {
          $Self->{LogObject}->Log(
!             Caller   => 1,
              Priority => 'Error',
!             Message  => "$DBI::errstr, SQL: '$Param{SQL}'",
          );
          return;



More information about the cvs-log mailing list