[otrs-cvs] Advisory/Kernel/System Advisory.pm,1.41,1.42

[cvs-log at otrs.org]

Comments:
Update of /home/cvs/Advisory/Kernel/System
In directory lancelot:/tmp/cvs-serv5433/Kernel/System

Modified Files:
	Advisory.pm 
Log Message:
Improved the perldoc for new()

Author: tr

Index: Advisory.pm
===================================================================
RCS file: /home/cvs/Advisory/Kernel/System/Advisory.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -d -r1.41 -r1.42
*** Advisory.pm	1 Mar 2008 22:13:16 -0000	1.41
--- Advisory.pm	5 Mar 2008 07:12:23 -0000	1.42
***************
*** 39,42 ****
--- 39,43 ----
      use Kernel::System::Log;
      use Kernel::System::DB;
+     use Kerner::System::Main;
      use Kernel::System::Time;
      use Kernel::System::Advisory;
***************
*** 44,50 ****
  
      my $ConfigObject = Kernel::Config->new();
!     my $LogObject    = Kernel::System::Log->new(
          ConfigObject => $ConfigObject,
      );
      my $DBObject = Kernel::System::DB->new(
          ConfigObject => $ConfigObject,
--- 45,55 ----
  
      my $ConfigObject = Kernel::Config->new();
!     my $LogObject = Kernel::System::Log->new(
          ConfigObject => $ConfigObject,
      );
+     my $MainObject = Kernel::System::Main->new(
+         ConfigObject => $ConfigObject,
+         LogObject    => $LogObject,
+     );
      my $DBObject = Kernel::System::DB->new(
          ConfigObject => $ConfigObject,
***************
*** 52,66 ****
          MainObject   => $MainObject,
      );
- 
      my $TimeObject = Kernel::System::Time->new(
          ConfigObject => $ConfigObject,
!         LogObject => $LogObject,
      );
      my $AdvisoryObject = Kernel::System::Advisory->new(
          ConfigObject => $ConfigObject,
!         LogObject => $LogObject,
!         DBObject => $DBObject,
!         TimeObject => $TimeObject,
!         UserID => 123,
      );
  
--- 57,70 ----
          MainObject   => $MainObject,
      );
      my $TimeObject = Kernel::System::Time->new(
          ConfigObject => $ConfigObject,
!         LogObject    => $LogObject,
      );
      my $AdvisoryObject = Kernel::System::Advisory->new(
          ConfigObject => $ConfigObject,
!         LogObject    => $LogObject,
!         DBObject     => $DBObject,
!         TimeObject   => $TimeObject,
!         UserID       => 123,
      );