[otrs-cvs] CVS: ITSMCMDB/Kernel/System/LinkObject2 ITSMComputer.pm, 1.4, 1.5 ITSMHardware.pm,1.4,1.5 ITSMLocation.pm,1.4,1.5 ITSMNetwork.pm,1.4,1.5 ITSMOrgUnit.pm,1.4,1.5 ITSMSLA.pm,1.4,1.5 ITSMService.pm,1.4,1.5 ITSMSoftware.pm,1.4,1.5

[cvs-log at otrs.org]

Update of /home/cvs/ITSMCMDB/Kernel/System/LinkObject2
In directory lancelot:/tmp/cvs-serv16699/Kernel/System/LinkObject2

Modified Files:
	ITSMComputer.pm ITSMHardware.pm ITSMLocation.pm ITSMNetwork.pm 
	ITSMOrgUnit.pm ITSMSLA.pm ITSMService.pm ITSMSoftware.pm 
Log Message:
fixed ChangedTime bug

Index: ITSMComputer.pm
===================================================================
RCS file: /home/cvs/ITSMCMDB/Kernel/System/LinkObject2/ITSMComputer.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** ITSMComputer.pm	30 Nov 2006 20:22:01 -0000	1.4
--- ITSMComputer.pm	13 Dec 2006 14:50:17 -0000	1.5
***************
*** 103,106 ****
--- 103,114 ----
      $Data{ID} = sprintf("%06d", $Param{Key});
  
+     # TODO use only RecordGet to get record Data (remove useless DataArrayGet)
+     my @Object = $Self->{ITSMCMDBObject}->RecordGet(
+         ConfigItem => 'Computer',
+         RecordID => $Param{Key},
+         UserID => $Self->{UserID},
+     );
+     $Data{ChangedTime} = $Object[1]->{ChangedTime};
+ 
      return %Data;
  }

Index: ITSMHardware.pm
===================================================================
RCS file: /home/cvs/ITSMCMDB/Kernel/System/LinkObject2/ITSMHardware.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** ITSMHardware.pm	30 Nov 2006 20:22:01 -0000	1.4
--- ITSMHardware.pm	13 Dec 2006 14:50:17 -0000	1.5
***************
*** 103,106 ****
--- 103,114 ----
      $Data{ID} = sprintf("%06d", $Param{Key});
  
+     # TODO use only RecordGet to get record Data (remove useless DataArrayGet)
+     my @Object = $Self->{ITSMCMDBObject}->RecordGet(
+         ConfigItem => 'Hardware',
+         RecordID => $Param{Key},
+         UserID => $Self->{UserID},
+     );
+     $Data{ChangedTime} = $Object[1]->{ChangedTime};
+ 
      return %Data;
  }

Index: ITSMLocation.pm
===================================================================
RCS file: /home/cvs/ITSMCMDB/Kernel/System/LinkObject2/ITSMLocation.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** ITSMLocation.pm	30 Nov 2006 20:22:01 -0000	1.4
--- ITSMLocation.pm	13 Dec 2006 14:50:17 -0000	1.5
***************
*** 103,106 ****
--- 103,114 ----
      $Data{ID} = sprintf("%06d", $Param{Key});
  
+     # TODO use only RecordGet to get record Data (remove useless DataArrayGet)
+     my @Object = $Self->{ITSMCMDBObject}->RecordGet(
+         ConfigItem => 'Location',
+         RecordID => $Param{Key},
+         UserID => $Self->{UserID},
+     );
+     $Data{ChangedTime} = $Object[1]->{ChangedTime};
+ 
      return %Data;
  }

Index: ITSMNetwork.pm
===================================================================
RCS file: /home/cvs/ITSMCMDB/Kernel/System/LinkObject2/ITSMNetwork.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** ITSMNetwork.pm	30 Nov 2006 20:22:01 -0000	1.4
--- ITSMNetwork.pm	13 Dec 2006 14:50:17 -0000	1.5
***************
*** 103,106 ****
--- 103,114 ----
      $Data{ID} = sprintf("%06d", $Param{Key});
  
+     # TODO use only RecordGet to get record Data (remove useless DataArrayGet)
+     my @Object = $Self->{ITSMCMDBObject}->RecordGet(
+         ConfigItem => 'Network',
+         RecordID => $Param{Key},
+         UserID => $Self->{UserID},
+     );
+     $Data{ChangedTime} = $Object[1]->{ChangedTime};
+ 
      return %Data;
  }

Index: ITSMOrgUnit.pm
===================================================================
RCS file: /home/cvs/ITSMCMDB/Kernel/System/LinkObject2/ITSMOrgUnit.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** ITSMOrgUnit.pm	30 Nov 2006 20:22:01 -0000	1.4
--- ITSMOrgUnit.pm	13 Dec 2006 14:50:17 -0000	1.5
***************
*** 103,106 ****
--- 103,114 ----
      $Data{ID} = sprintf("%06d", $Param{Key});
  
+     # TODO use only RecordGet to get record Data (remove useless DataArrayGet)
+     my @Object = $Self->{ITSMCMDBObject}->RecordGet(
+         ConfigItem => 'OrgUnit',
+         RecordID => $Param{Key},
+         UserID => $Self->{UserID},
+     );
+     $Data{ChangedTime} = $Object[1]->{ChangedTime};
+ 
      return %Data;
  }

Index: ITSMSLA.pm
===================================================================
RCS file: /home/cvs/ITSMCMDB/Kernel/System/LinkObject2/ITSMSLA.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** ITSMSLA.pm	30 Nov 2006 20:22:01 -0000	1.4
--- ITSMSLA.pm	13 Dec 2006 14:50:17 -0000	1.5
***************
*** 103,106 ****
--- 103,114 ----
      $Data{ID} = sprintf("%06d", $Param{Key});
  
+     # TODO use only RecordGet to get record Data (remove useless DataArrayGet)
+     my @Object = $Self->{ITSMCMDBObject}->RecordGet(
+         ConfigItem => 'SLA',
+         RecordID => $Param{Key},
+         UserID => $Self->{UserID},
+     );
+     $Data{ChangedTime} = $Object[1]->{ChangedTime};
+ 
      return %Data;
  }

Index: ITSMService.pm
===================================================================
RCS file: /home/cvs/ITSMCMDB/Kernel/System/LinkObject2/ITSMService.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** ITSMService.pm	30 Nov 2006 20:22:01 -0000	1.4
--- ITSMService.pm	13 Dec 2006 14:50:17 -0000	1.5
***************
*** 103,106 ****
--- 103,114 ----
      $Data{ID} = sprintf("%06d", $Param{Key});
  
+     # TODO use only RecordGet to get record Data (remove useless DataArrayGet)
+     my @Object = $Self->{ITSMCMDBObject}->RecordGet(
+         ConfigItem => 'Service',
+         RecordID => $Param{Key},
+         UserID => $Self->{UserID},
+     );
+     $Data{ChangedTime} = $Object[1]->{ChangedTime};
+ 
      return %Data;
  }

Index: ITSMSoftware.pm
===================================================================
RCS file: /home/cvs/ITSMCMDB/Kernel/System/LinkObject2/ITSMSoftware.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** ITSMSoftware.pm	30 Nov 2006 20:22:01 -0000	1.4
--- ITSMSoftware.pm	13 Dec 2006 14:50:17 -0000	1.5
***************
*** 103,106 ****
--- 103,114 ----
      $Data{ID} = sprintf("%06d", $Param{Key});
  
+     # TODO use only RecordGet to get record Data (remove useless DataArrayGet)
+     my @Object = $Self->{ITSMCMDBObject}->RecordGet(
+         ConfigItem => 'Software',
+         RecordID => $Param{Key},
+         UserID => $Self->{UserID},
+     );
+     $Data{ChangedTime} = $Object[1]->{ChangedTime};
+ 
      return %Data;
  }