[otrs-cvs] Incident/Kernel/Modules AgentIncident.pm,1.51,1.52

cvs-log at otrs.org cvs-log at otrs.org
Mon Feb 25 06:38:20 GMT 2008


Comments:
Update of /home/cvs/Incident/Kernel/Modules
In directory lancelot:/tmp/cvs-serv1798/Kernel/Modules

Modified Files:
	AgentIncident.pm 
Log Message:
Fixed syntax error.

Author: tr

Index: AgentIncident.pm
===================================================================
RCS file: /home/cvs/Incident/Kernel/Modules/AgentIncident.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -d -r1.51 -r1.52
*** AgentIncident.pm	22 Feb 2008 07:43:44 -0000	1.51
--- AgentIncident.pm	25 Feb 2008 06:38:15 -0000	1.52
***************
*** 43,53 ****
      }
  
!     $Self->{CustomerUserObject} = Kernel::System::CustomerUser->new(%Param);
!     $Self->{IncidentObject} = Kernel::System::Incident->new( %Param, UserID => $Self->{UserID} );
!     $Self->{PriorityObject} = Kernel::System::Priority->new(%Param);
!     $Self->{StateObject}    = Kernel::System::State->new(%Param);
      $Self->{SearchProfileObject} = Kernel::System::SearchProfile->new(%Param);
!     $Self->{LinkObject}          = Kernel::System::LinkObject->new(%Param);
!     $Self->{XMLObject}           = Kernel::System::XML->new(%Param);
  
      return $Self;
--- 43,53 ----
      }
  
!     $Self->{CustomerUserObject}  = Kernel::System::CustomerUser ->new(%Param);
!     $Self->{IncidentObject}      = Kernel::System::Incident     ->new( %Param, UserID => $Self->{UserID} );
!     $Self->{PriorityObject}      = Kernel::System::Priority     ->new(%Param);
!     $Self->{StateObject}         = Kernel::System::State        ->new(%Param);
      $Self->{SearchProfileObject} = Kernel::System::SearchProfile->new(%Param);
!     $Self->{LinkObject}          = Kernel::System::LinkObject   ->new(%Param);
!     $Self->{XMLObject}           = Kernel::System::XML          ->new(%Param);
  
      return $Self;
***************
*** 72,82 ****
      if ( $Self->{Subaction} eq 'IncidentAdd' ) {
  
-         # declartion
-         my %Option = ();
- 
          # get form params
!         for (qw(TicketID)) {
!             $Param{$_} = $Self->{ParamObject}->GetParam( Param => $_ );
!         }
  
          # permission check
--- 72,77 ----
      if ( $Self->{Subaction} eq 'IncidentAdd' ) {
  
          # get form params
!         $Param{TicketID} = $Self->{ParamObject}->GetParam( Param => 'TicketID' );
  
          # permission check
***************
*** 134,138 ****
          }
  
!         %Option = $Self->{TicketObject}->TicketGet(
              TicketID => $Param{TicketID},
              UserID   => $Self->{UserID},
--- 129,133 ----
          }
  
!         my %Option = $Self->{TicketObject}->TicketGet(
              TicketID => $Param{TicketID},
              UserID   => $Self->{UserID},
***************
*** 730,740 ****
          {
              $Param{$_} = $Self->{ParamObject}->GetParam( Param => $_ );
!             if ( $_ eq 'TicketID' ) {
  
!                 if ( !$Param{$_} ) {
!                     return $Self->{LayoutObject}
!                         ->ErrorScreen( Message => "EditContactAddressesAction: Need $_!" );
!                 }
!             }
          }
  
--- 725,733 ----
          {
              $Param{$_} = $Self->{ParamObject}->GetParam( Param => $_ );
!         }
  
!         if ( !$Param{TicketID} ) {
!             return $Self->{LayoutObject}
!                 ->ErrorScreen( Message => 'EditContactAddressesAction: Need TicketID!' );
          }
  
***************
*** 5249,5252 ****
--- 5242,5246 ----
                      }
                  }
+                 my $Time;
                  for my $Key (qw(ReportTime IncidentStarted IncidentDetected IncidentEnded)) {
                      if ( $Incident{ 'Select' . $Key . 'Value' } == 0 ) {
***************
*** 6638,6642 ****
  
              # AlternativID
!             for ( $Key = 0; $Key < 50; $Key++ ) {
                  if ( $Self->{ParamObject}->GetParam( Param => 'AlternativID[' . $Key . ']' ) ) {
                      $Incident{AlternativID}{$Key}
--- 6632,6636 ----
  
              # AlternativID
!             for ( my $Key = 0; $Key < 50; $Key++ ) {
                  if ( $Self->{ParamObject}->GetParam( Param => 'AlternativID[' . $Key . ']' ) ) {
                      $Incident{AlternativID}{$Key}
***************
*** 6646,6650 ****
  
              # Related Activity
!             for ( $Key = 0; $Key < 50; $Key++ ) {
                  if ( $Self->{ParamObject}->GetParam( Param => 'RelatedActivity[' . $Key . ']' ) ) {
                      $Incident{RelatedActivity}{$Key} = $Self->{ParamObject}
--- 6640,6644 ----
  
              # Related Activity
!             for ( my $Key = 0; $Key < 50; $Key++ ) {
                  if ( $Self->{ParamObject}->GetParam( Param => 'RelatedActivity[' . $Key . ']' ) ) {
                      $Incident{RelatedActivity}{$Key} = $Self->{ParamObject}
***************
*** 6654,6658 ****
  
              # Event params get - start
!             for ( $EventID = 0; $EventID < 50; $EventID++ ) {
                  if ( $Self->{ParamObject}->GetParam( Param => 'EventPosition[' . $EventID . ']' ) )
                  {
--- 6648,6652 ----
  
              # Event params get - start
!             for ( my $EventID = 0; $EventID < 50; $EventID++ ) {
                  if ( $Self->{ParamObject}->GetParam( Param => 'EventPosition[' . $EventID . ']' ) )
                  {
***************
*** 6729,6733 ****
  
                      # System Start
!                     for ( $SystemID = 0; $SystemID < 15; $SystemID++ ) {
                          if ($Self->{ParamObject}->GetParam(
                                      Param => 'EventSystemCategoryID['
--- 6723,6727 ----
  
                      # System Start
!                     for ( my $SystemID = 0; $SystemID < 15; $SystemID++ ) {
                          if ($Self->{ParamObject}->GetParam(
                                      Param => 'EventSystemCategoryID['
***************
*** 6757,6761 ****
  
                              # Address Start
!                             for ( $AddressID = 0; $AddressID < 20; $AddressID++ ) {
                                  if ($Self->{ParamObject}->GetParam(
                                              Param => 'EventSystemNodeAddressCategoryID['
--- 6751,6755 ----
  
                              # Address Start
!                             for ( my $AddressID = 0; $AddressID < 20; $AddressID++ ) {
                                  if ($Self->{ParamObject}->GetParam(
                                              Param => 'EventSystemNodeAddressCategoryID['
***************
*** 6806,6810 ****
                              # Node End
                              # Service Start
!                             for ( $ServiceID = 0; $ServiceID < 20; $ServiceID++ ) {
                                  if ($Self->{ParamObject}->GetParam(
                                              Param => 'EventSystemServiceName['
--- 6800,6804 ----
                              # Node End
                              # Service Start
!                             for my $ServiceID ( 0..20 ) {
                                  if ($Self->{ParamObject}->GetParam(
                                              Param => 'EventSystemServiceName['
***************
*** 6852,6856 ****
                              # Service End
                              # User Start
!                             for ( $UserID = 0; $UserID < 20; $UserID++ ) {
                                  if ($Self->{ParamObject}->GetParam(
                                              Param => 'EventSystemUserCategoryID['
--- 6846,6850 ----
                              # Service End
                              # User Start
!                             for my $UserID ( 0 .. 20 ) {
                                  if ($Self->{ParamObject}->GetParam(
                                              Param => 'EventSystemUserCategoryID['
***************
*** 6871,6875 ****
  
                                      # UserID Start
!                                     for ( $UserIDID = 0; $UserIDID < 20; $UserIDID++ ) {
                                          if ($Self->{ParamObject}->GetParam(
                                                      Param => 'EventSystemUserUserIDTypID['
--- 6865,6869 ----
  
                                      # UserID Start
!                                     for ( my $UserIDID = 0; $UserIDID < 20; $UserIDID++ ) {
                                          if ($Self->{ParamObject}->GetParam(
                                                      Param => 'EventSystemUserUserIDTypID['
***************
*** 6917,6921 ****
                              # User End
                              # File Start
!                             for ( $FileID = 0; $FileID < 20; $FileID++ ) {
                                  if ($Self->{ParamObject}->GetParam(
                                              Param => 'EventSystemFileName['
--- 6911,6915 ----
                              # User End
                              # File Start
!                             for my $FileID ( 0 .. 20 ) {
                                  if ($Self->{ParamObject}->GetParam(
                                              Param => 'EventSystemFileName['
***************
*** 7016,7020 ****
                              #File End
                              # Process Start
!                             for ( $ProcessID = 0; $ProcessID < 20; $ProcessID++ ) {
                                  if ($Self->{ParamObject}->GetParam(
                                              Param => 'EventSystemProcessName['
--- 7010,7014 ----
                              #File End
                              # Process Start
!                             for my $ProcessID ( 0 .. 20 ) {
                                  if ($Self->{ParamObject}->GetParam(
                                              Param => 'EventSystemProcessName['
***************
*** 7051,7055 ****
  
                                      # ARG Start
!                                     for ( $ARGID = 0; $ARGID < 30; $ARGID++ ) {
                                          if ($Self->{ParamObject}->GetParam(
                                                      Param => 'EventSystemProcessARG['
--- 7045,7049 ----
  
                                      # ARG Start
!                                     for my $ARGID ( 0..30 ) {
                                          if ($Self->{ParamObject}->GetParam(
                                                      Param => 'EventSystemProcessARG['
***************
*** 7075,7079 ****
                                      # ARG End
                                      # ENV Start
!                                     for ( $ENVID = 0; $ENVID < 30; $ENVID++ ) {
                                          if ($Self->{ParamObject}->GetParam(
                                                      Param => 'EventSystemProcessENV['
--- 7069,7073 ----
                                      # ARG End
                                      # ENV Start
!                                     for my $ENVID ( 0..30 ) {
                                          if ($Self->{ParamObject}->GetParam(
                                                      Param => 'EventSystemProcessENV['


More information about the cvs-log mailing list