[otrs-cvs] CVS: ITSMCMDB/Kernel/Modules AgentITSMCMDB.pm,1.42,1.43

[cvs-log at otrs.org]

Update of /home/cvs/ITSMCMDB/Kernel/Modules
In directory lancelot:/tmp/cvs-serv4300/Kernel/Modules

Modified Files:
	AgentITSMCMDB.pm 
Log Message:
fixed bug with add button

Index: AgentITSMCMDB.pm
===================================================================
RCS file: /home/cvs/ITSMCMDB/Kernel/Modules/AgentITSMCMDB.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -C2 -r1.42 -r1.43
*** AgentITSMCMDB.pm	4 Nov 2006 15:17:03 -0000	1.42
--- AgentITSMCMDB.pm	4 Nov 2006 16:36:11 -0000	1.43
***************
*** 729,732 ****
--- 729,750 ----
                          $Data{$AddKey . $CounterSub1} = '';
                          push (@AttributeData, \%Data);
+ 
+                         if ($Sub1->{Sub}) {
+                             foreach my $Sub2 (@{$Sub1->{Sub}}) {
+                                 my %CountSub2 = $Self->{ITSMCMDBObject}->CalculateCount(
+                                     Attribute => $Sub2,
+                                 );
+ 
+                                 if ($CountSub2{Now}) {
+                                     my $CounterSub2 = 0;
+                                     foreach (1..$CountSub2{Now}) {
+                                         my %DataSub;
+                                         $DataSub{$AddKey . $CounterSub1  . '::' . $Sub2->{Key} . '::' . $CounterSub2} = '';
+                                         push (@AttributeData, \%DataSub);
+                                         $CounterSub2++;
+                                     }
+                                 }
+                             }
+                         }
                      }
                  }
***************
*** 741,746 ****
              $Data{$AddKey . $Counter} = '';
              push (@AttributeData, \%Data);
-         }
  
          @FormData = (@FormData, @AttributeData);
      }
--- 759,799 ----
              $Data{$AddKey . $Counter} = '';
              push (@AttributeData, \%Data);
  
+             if ($Attribute->{Sub}) {
+                 foreach my $Sub1 (@{$Attribute->{Sub}}) {
+                     my %CountSub1 = $Self->{ITSMCMDBObject}->CalculateCount(
+                         Attribute => $Sub1,
+                     );
+ 
+                     if ($CountSub1{Now}) {
+                         my $CounterSub1 = 0;
+                         foreach (1..$CountSub1{Now}) {
+                             my %DataSub;
+                             $DataSub{$AddKey . $Counter . '::' . $Sub1->{Key} . '::' . $CounterSub1} = '';
+                             push (@AttributeData, \%DataSub);
+ 
+                             if ($Sub1->{Sub}) {
+                                 foreach my $Sub2 (@{$Sub1->{Sub}}) {
+                                     my %CountSub2 = $Self->{ITSMCMDBObject}->CalculateCount(
+                                         Attribute => $Sub2,
+                                     );
+ 
+                                     if ($CountSub2{Now}) {
+                                         my $CounterSub2 = 0;
+                                         foreach (1..$CountSub2{Now}) {
+                                             my %DataSub;
+                                             $DataSub{$AddKey . $Counter . '::' . $Sub1->{Key} . '::' . $CounterSub1  . '::' . $Sub2->{Key} . '::' . $CounterSub2} = '';
+                                             push (@AttributeData, \%DataSub);
+                                             $CounterSub2++;
+                                         }
+                                     }
+                                 }
+                             }
+                             $CounterSub1++;
+                         }
+                     }
+                 }
+             }
+         }
          @FormData = (@FormData, @AttributeData);
      }
***************
*** 1403,1405 ****
  }
  
! 1;
--- 1456,1458 ----
  }
  
! 1;
\ No newline at end of file