[otrs-cvs] Fred/Kernel/Modules DevelFred.pm,1.9,1.10

[cvs-log at otrs.org]

Comments:
Update of /home/cvs/Fred/Kernel/Modules
In directory lancelot:/tmp/cvs-serv2896/Kernel/Modules

Modified Files:
	DevelFred.pm 
Log Message:
Because of changes in Kernel/System/Config.pm now the encode object is required.

Author: tr

Index: DevelFred.pm
===================================================================
RCS file: /home/cvs/Fred/Kernel/Modules/DevelFred.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** DevelFred.pm	24 Jan 2008 07:24:42 -0000	1.9
--- DevelFred.pm	18 Mar 2008 13:33:34 -0000	1.10
***************
*** 32,45 ****
  
      # check needed Objects
      for my $Object (qw(
          ParamObject DBObject     LogObject ConfigObject
!         MainObject  LayoutObject TimeObject
      )) {
          if ($Param{$Object}) {
              $Self->{$Object} = $Param{$Object};
          }
!         else {
!             $Self->{LayoutObject}->FatalError(Message => "Got no $Object!");
!         }
      }
  #    $Self->{XMLObject} = Kernel::System::XML->new(%{$Self});
--- 32,45 ----
  
      # check needed Objects
+     OBJECT:
      for my $Object (qw(
          ParamObject DBObject     LogObject ConfigObject
!         MainObject  LayoutObject TimeObject EncodeObject
      )) {
          if ($Param{$Object}) {
              $Self->{$Object} = $Param{$Object};
+             next OBJECT;
          }
!         $Self->{LayoutObject}->FatalError(Message => "Got no $Object!");
      }
  #    $Self->{XMLObject} = Kernel::System::XML->new(%{$Self});
***************
*** 63,69 ****
              return $Self->_ActivateFredFor21();
          }
!         else {
!             $Self->{LayoutObject}->FatalError(Message => "Sorry, this side is currently under development!");
!         }
      }
  #        my $Output   = '';
--- 63,67 ----
              return $Self->_ActivateFredFor21();
          }
!         $Self->{LayoutObject}->FatalError(Message => "Sorry, this side is currently under development!");
      }
  #        my $Output   = '';