[otrs-cvs] CVS: Incident/Kernel/Output/HTML ArticleAttachmentIODEFImport.pm,1.6,1.7 TicketMenuIncident.pm,1.6,1.7

[cvs-log at otrs.org]

Update of /home/cvs/Incident/Kernel/Output/HTML
In directory lancelot:/tmp/cvs-serv2091/Kernel/Output/HTML

Modified Files:
	ArticleAttachmentIODEFImport.pm TicketMenuIncident.pm 
Log Message:
new codestyle, removed little bugs, tuned for using by the OPMS-module

Index: ArticleAttachmentIODEFImport.pm
===================================================================
RCS file: /home/cvs/Incident/Kernel/Output/HTML/ArticleAttachmentIODEFImport.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** ArticleAttachmentIODEFImport.pm	28 Jun 2006 12:57:03 -0000	1.6
--- ArticleAttachmentIODEFImport.pm	6 Dec 2006 12:01:40 -0000	1.7
***************
*** 1,5 ****
  # --
  # Kernel/Output/HTML/ArticleAttachmentIODEFImport.pm
! # Copyright (C) 2003-2006 OTRS GmbH, http://www.otrs.com/
  # --
  # $Id$
--- 1,5 ----
  # --
  # Kernel/Output/HTML/ArticleAttachmentIODEFImport.pm
! # Copyright (C) 2003-2006 OTRS GmbH, http://otrs.com/
  # --
  # $Id$
***************
*** 19,23 ****
  $VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
  
- # --
  sub new {
      my $Type = shift;
--- 19,22 ----
***************
*** 37,41 ****
      return $Self;
  }
! # --
  sub Run {
      my $Self = shift;
--- 36,40 ----
      return $Self;
  }
! 
  sub Run {
      my $Self = shift;
***************
*** 43,50 ****
      # check needed stuff
      foreach (qw(File Article)) {
!       if (!$Param{$_}) {
!         $Self->{LogObject}->Log(Priority => 'error', Message => "Need $_!");
!         return;
!       }
      }
      # check if file
--- 42,49 ----
      # check needed stuff
      foreach (qw(File Article)) {
!         if (!$Param{$_}) {
!             $Self->{LogObject}->Log(Priority => 'error', Message => "Need $_!");
!             return;
!         }
      }
      # check if file
***************
*** 79,83 ****
                      %{$Param{File}},
                      Action => 'Import-IODEF',
!                     Link => "\$Env{\"Baselink\"}Action=AgentIncident&Subaction=Import&TicketID=$Self->{TicketID}&ArticleID=$Param{Article}->{ArticleID}&FileID=$Param{File}->{FileID}",
                      Image => 'import-s.png',
                  );
--- 78,84 ----
                      %{$Param{File}},
                      Action => 'Import-IODEF',
!                     Link => "\$Env{\"Baselink\"}Action=AgentIncident&Subaction=Import&".
!                         "TicketID=$Self->{TicketID}&ArticleID=$Param{Article}->{ArticleID}&".
!                         "FileID=$Param{File}->{FileID}",
                      Image => 'import-s.png',
                  );
***************
*** 87,90 ****
      return ();
  }
! # --
  1;
--- 88,91 ----
      return ();
  }
! 
  1;

Index: TicketMenuIncident.pm
===================================================================
RCS file: /home/cvs/Incident/Kernel/Output/HTML/TicketMenuIncident.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** TicketMenuIncident.pm	7 Jun 2006 15:01:59 -0000	1.6
--- TicketMenuIncident.pm	6 Dec 2006 12:01:40 -0000	1.7
***************
*** 1,5 ****
  # --
  # Kernel/Output/HTML/TicketMenuIncident.pm
! # Copyright (C) 2003-2006 OTRS GmbH, http://www.otrs.com/
  # --
  # $Id$
--- 1,5 ----
  # --
  # Kernel/Output/HTML/TicketMenuIncident.pm
! # Copyright (C) 2003-2006 OTRS GmbH, http://otrs.com/
  # --
  # $Id$
***************
*** 18,22 ****
  $VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
  
- # --
  sub new {
      my $Type = shift;
--- 18,21 ----
***************
*** 34,38 ****
      return $Self;
  }
! # --
  sub Run {
      my $Self = shift;
--- 33,37 ----
      return $Self;
  }
! 
  sub Run {
      my $Self = shift;
***************
*** 104,107 ****
      return $Param{Counter};
  }
! # --
  1;
--- 103,106 ----
      return $Param{Counter};
  }
! 
  1;