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

[CVS commits notifications of OTRS.org]

Comments:
Update of /home/cvs/ITSMConfigItem/Kernel/System
In directory lancelot:/tmp/cvs-serv22131/Kernel/System

Modified Files:
	ITSMConfigItem.pm 
Log Message:
Improved ConfigItemAdd() function.

Author: mh

Index: ITSMConfigItem.pm
===================================================================
RCS file: /home/cvs/ITSMConfigItem/Kernel/System/ITSMConfigItem.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -d -r1.41 -r1.42
*** ITSMConfigItem.pm	23 Apr 2008 16:41:32 -0000	1.41
--- ITSMConfigItem.pm	25 Apr 2008 16:10:37 -0000	1.42
***************
*** 415,418 ****
--- 415,435 ----
      }
  
+     # get class list
+     my $ClassList = $Self->{GeneralCatalogObject}->ItemList(
+         Class => 'ITSM::ConfigItem::Class',
+     );
+ 
+     return if !$ClassList || ref $ClassList ne 'HASH';
+ 
+     # check the class id
+     if ( !$ClassList->{ $Param{ClassID} } ) {
+ 
+         $Self->{LogObject}->Log(
+             Priority => 'error',
+             Message  => "No valid class id given!",
+         );
+         return;
+     }
+ 
      # quote
      for my $Argument (qw(ClassID UserID)) {