[otrs-cvs] ITSMCore/Kernel/Modules AdminITSMCIPAllocate.pm, 1.1, 1.2 AdminTicketPriority.pm, 1.3, 1.4

[cvs-log at otrs.org]

Comments:
Update of /home/cvs/ITSMCore/Kernel/Modules
In directory lancelot:/tmp/cvs-serv3086/Kernel/Modules

Modified Files:
	AdminITSMCIPAllocate.pm AdminTicketPriority.pm 
Log Message:
Code cleanup.

Author: mh

Index: AdminITSMCIPAllocate.pm
===================================================================
RCS file: /home/cvs/ITSMCore/Kernel/Modules/AdminITSMCIPAllocate.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** AdminITSMCIPAllocate.pm	20 Mar 2007 11:50:08 -0000	1.1
--- AdminITSMCIPAllocate.pm	2 Jul 2007 13:29:20 -0000	1.2
***************
*** 1,5 ****
  # --
  # Kernel/Modules/AdminITSMCIPAllocate.pm - admin frontend of criticality, impact and priority
! # Copyright (C) 2003-2007 OTRS GmbH, http://otrs.com/
  # --
  # $Id$
--- 1,5 ----
  # --
  # Kernel/Modules/AdminITSMCIPAllocate.pm - admin frontend of criticality, impact and priority
! # Copyright (C) 2001-2007 OTRS GmbH, http://otrs.org/
  # --
  # $Id$
***************
*** 13,20 ****
  
  use strict;
! use Kernel::System::Valid;
! use Kernel::System::Priority;
  use Kernel::System::GeneralCatalog;
  use Kernel::System::ITSMCIPAllocate;
  
  use vars qw($VERSION);
--- 13,22 ----
  
  use strict;
! use warnings;
! 
  use Kernel::System::GeneralCatalog;
  use Kernel::System::ITSMCIPAllocate;
+ use Kernel::System::Priority;
+ use Kernel::System::Valid;
  
  use vars qw($VERSION);
***************
*** 41,48 ****
          }
      }
-     $Self->{ValidObject} = Kernel::System::Valid->new(%Param);
-     $Self->{PriorityObject} = Kernel::System::Priority->new(%Param);
      $Self->{GeneralCatalogObject} = Kernel::System::GeneralCatalog->new(%Param);
      $Self->{CIPAllocateObject} = Kernel::System::ITSMCIPAllocate->new(%Param);
  
      return $Self;
--- 43,50 ----
          }
      }
      $Self->{GeneralCatalogObject} = Kernel::System::GeneralCatalog->new(%Param);
      $Self->{CIPAllocateObject} = Kernel::System::ITSMCIPAllocate->new(%Param);
+     $Self->{PriorityObject} = Kernel::System::Priority->new(%Param);
+     $Self->{ValidObject} = Kernel::System::Valid->new(%Param);
  
      return $Self;

Author: mh

Index: AdminTicketPriority.pm
===================================================================
RCS file: /home/cvs/ITSMCore/Kernel/Modules/AdminTicketPriority.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** AdminTicketPriority.pm	22 May 2007 07:53:18 -0000	1.3
--- AdminTicketPriority.pm	2 Jul 2007 13:29:20 -0000	1.4
***************
*** 13,19 ****
  
  use strict;
  
- use Kernel::System::Valid;
  use Kernel::System::Priority;
  
  use vars qw($VERSION);
--- 13,20 ----
  
  use strict;
+ use warnings;
  
  use Kernel::System::Priority;
+ use Kernel::System::Valid;
  
  use vars qw($VERSION);
***************
*** 40,45 ****
          }
      }
-     $Self->{ValidObject} = Kernel::System::Valid->new(%Param);
      $Self->{PriorityObject} = Kernel::System::Priority->new(%Param);
  
      return $Self;
--- 41,46 ----
          }
      }
      $Self->{PriorityObject} = Kernel::System::Priority->new(%Param);
+     $Self->{ValidObject} = Kernel::System::Valid->new(%Param);
  
      return $Self;