[otrs-cvs] CVS: otrs/Kernel/Modules AgentLookup.pm,1.6,1.7

[cvs-log at otrs.org]

Update of /home/cvs/otrs/Kernel/Modules
In directory lancelot:/tmp/cvs-serv4211

Modified Files:
	AgentLookup.pm 
Log Message:
changed DBI:error into Fatalerror

Index: AgentLookup.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/Modules/AgentLookup.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** AgentLookup.pm	27 Mar 2005 11:52:22 -0000	1.6
--- AgentLookup.pm	9 May 2006 14:51:50 -0000	1.7
***************
*** 1,5 ****
  # --
  # Kernel/Modules/AgentLookup.pm - a generic lookup module
! # Copyright (C) 2001-2005 Martin Edenhofer <martin+code at otrs.org>
  # --
  # $Id$
--- 1,5 ----
  # --
  # Kernel/Modules/AgentLookup.pm - a generic lookup module
! # Copyright (C) 2001-2006 Martin Edenhofer <martin+code at otrs.org>
  # --
  # $Id$
***************
*** 85,89 ****
              DatabaseUser => $Self->{Map}->{$Param{Source}}->{Params}->{User},
              DatabasePw => $Self->{Map}->{$Param{Source}}->{Params}->{Password},
!         ) || die $DBI::errstr;
          # remember that we have the DBObject not from parent call
          $Self->{NotParentDBObject} = 1;
--- 85,93 ----
              DatabaseUser => $Self->{Map}->{$Param{Source}}->{Params}->{User},
              DatabasePw => $Self->{Map}->{$Param{Source}}->{Params}->{Password},
!         );
!         if (!$Self->{DBObject}) {
!             $Self->{LayoutObject}->FatalError();
!         }
! 
          # remember that we have the DBObject not from parent call
          $Self->{NotParentDBObject} = 1;
***************
*** 129,133 ****
      $Output .= $Self->{LayoutObject}->Header(Area => 'Ticket', Title => 'Lookup', Type => 'Small');
      $Output .= $Self->_Mask(
!         List => \%Result,
          Search => $Search,
          %Param,
--- 133,137 ----
      $Output .= $Self->{LayoutObject}->Header(Area => 'Ticket', Title => 'Lookup', Type => 'Small');
      $Output .= $Self->_Mask(
!         List   => \%Result,
          Search => $Search,
          %Param,