[otrs-cvs] CVS: otrs/Kernel/System User.pm,1.55,1.55.2.1

[cvs-log at otrs.org]

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

Modified Files:
      Tag: rel-2_1
	User.pm 
Log Message:
fixed case sensitive of customer user login and agent user login if oracle or postgresql is used

Index: User.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/User.pm,v
retrieving revision 1.55
retrieving revision 1.55.2.1
diff -C2 -r1.55 -r1.55.2.1
*** User.pm	16 Oct 2006 15:54:22 -0000	1.55
--- User.pm	8 Jan 2007 21:14:04 -0000	1.55.2.1
***************
*** 1,5 ****
  # --
  # Kernel/System/User.pm - some user functions
! # Copyright (C) 2001-2006 OTRS GmbH, http://otrs.org/
  # --
  # $Id$
--- 1,5 ----
  # --
  # Kernel/System/User.pm - some user functions
! # Copyright (C) 2001-2007 OTRS GmbH, http://otrs.org/
  # --
  # $Id$
***************
*** 134,138 ****
          " WHERE ";
      if ($Param{User}) {
!         $SQL .= " $Self->{UserTableUser} = '".$Self->{DBObject}->Quote($Param{User})."'";
      }
      else {
--- 134,138 ----
          " WHERE ";
      if ($Param{User}) {
!         $SQL .= " LOWER($Self->{UserTableUser}) = LOWER('".$Self->{DBObject}->Quote($Param{User})."')";
      }
      else {
***************
*** 264,268 ****
              " $Self->{UserTable} " .
              " WHERE " .
!             " $Self->{UserTableUser} = '$Param{Login}'";
          my $UserID = '';
          $Self->{DBObject}->Prepare(SQL => $SQL);
--- 264,268 ----
              " $Self->{UserTable} " .
              " WHERE " .
!             " LOWER($Self->{UserTableUser}) = LOWER('$Param{Login}')";
          my $UserID = '';
          $Self->{DBObject}->Prepare(SQL => $SQL);
***************
*** 541,545 ****
                 " $Self->{UserTableUserPW} = '$NewPw' ".
                 " WHERE ".
!                " $Self->{UserTableUser} = '$Param{UserLogin}'",
      )) {
          # log notice
--- 541,545 ----
                 " $Self->{UserTableUserPW} = '$NewPw' ".
                 " WHERE ".
!                " LOWER($Self->{UserTableUser}) = LOWER('$Param{UserLogin}')",
      )) {
          # log notice
***************
*** 589,593 ****
          # build sql query
          my $SQL = "SELECT $Self->{UserTableUserID} FROM $Self->{UserTable} ".
!             " WHERE $Self->{UserTableUser} = '$Param{UserLogin}'";
          $Self->{DBObject}->Prepare(SQL => $SQL);
          while  (my @Row = $Self->{DBObject}->FetchrowArray()) {
--- 589,593 ----
          # build sql query
          my $SQL = "SELECT $Self->{UserTableUserID} FROM $Self->{UserTable} ".
!             " WHERE LOWER($Self->{UserTableUser}) = LOWER('$Param{UserLogin}')";
          $Self->{DBObject}->Prepare(SQL => $SQL);
          while  (my @Row = $Self->{DBObject}->FetchrowArray()) {