[otrs-cvs] Artefact/Kernel/Modules AgentArtefact.pm,1.16,1.17

[cvs-log at otrs.org]

Comments:
Update of /home/cvs/Artefact/Kernel/Modules
In directory lancelot:/tmp/cvs-serv1647/Kernel/Modules

Modified Files:
	AgentArtefact.pm 
Log Message:
Removed an useless for loop.

Author: tr

Index: AgentArtefact.pm
===================================================================
RCS file: /home/cvs/Artefact/Kernel/Modules/AgentArtefact.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** AgentArtefact.pm	31 Oct 2007 13:42:32 -0000	1.16
--- AgentArtefact.pm	6 Feb 2008 10:57:48 -0000	1.17
***************
*** 1,5 ****
  # --
  # Kernel/Modules/AgentArtefact.pm - artefact module
! # Copyright (C) 2001-2007 OTRS GmbH, http://otrs.org/
  # --
  # $Id$
--- 1,5 ----
  # --
  # Kernel/Modules/AgentArtefact.pm - artefact module
! # Copyright (C) 2001-2008 OTRS AG, http://otrs.org/
  # --
  # $Id$
***************
*** 7,11 ****
  # This software comes with ABSOLUTELY NO WARRANTY. For details, see
  # the enclosed file COPYING for license information (GPL). If you
! # did not receive this file, see http://www.gnu.org/licenses/gpl.txt.
  # --
  
--- 7,11 ----
  # This software comes with ABSOLUTELY NO WARRANTY. For details, see
  # the enclosed file COPYING for license information (GPL). If you
! # did not receive this file, see http://www.gnu.org/licenses/gpl-2.0.txt.
  # --
  
***************
*** 26,37 ****
  
      # allocate new hash for object
!     my $Self = {};
      bless( $Self, $Type );
  
-     # get common objects
-     for ( keys %Param ) {
-         $Self->{$_} = $Param{$_};
-     }
- 
      # check needed Objects
      for (qw(ParamObject DBObject ModuleReg LogObject ConfigObject TicketObject)) {
--- 26,32 ----
  
      # allocate new hash for object
!     my $Self = { %Param} ;
      bless( $Self, $Type );
  
      # check needed Objects
      for (qw(ParamObject DBObject ModuleReg LogObject ConfigObject TicketObject)) {