[otrs-cvs] ITSMChangeManagement/bin otrs.ITSMChangeDelete.pl, 1.4, 1.4.2.1

Comments:
Update of /home/cvs/ITSMChangeManagement/bin
In directory lancelot:/tmp/cvs-serv9138/bin

Modified Files:
      Tag: rel-3_1
	otrs.ITSMChangeDelete.pl 
Log Message:
Fixed error message about missing LogObject during event transaction mode in Object destruction.

Author: ub

Index: otrs.ITSMChangeDelete.pl
===================================================================
RCS file: /home/cvs/ITSMChangeManagement/bin/otrs.ITSMChangeDelete.pl,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -2 -u -d -r1.4 -r1.4.2.1
--- otrs.ITSMChangeDelete.pl	20 Nov 2012 19:03:01 -0000	1.4
+++ otrs.ITSMChangeDelete.pl	27 Jun 2013 21:25:36 -0000	1.4.2.1
@@ -2,5 +2,5 @@
 # --
 # bin/otrs.ITSMChangeDelete.pl - to delete changes
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -62,5 +62,5 @@
 print "otrs.ITSMChangeDelete.pl <Revision $VERSION> - ";
 print "delete changes (all or by number).\n";
-print "Copyright (C) 2001-2012 OTRS AG, http://otrs.org/\n";
+print "Copyright (C) 2001-2013 OTRS AG, http://otrs.org/\n";
 
 my $Help          = '';
@@ -95,5 +95,5 @@
             # delete changes
             print "Deleting all changes...\n";
-            DeleteChanges( ChangesIDs => \@ChangesIDs );
+            DeleteChanges( %CommonObject, ChangesIDs => \@ChangesIDs );
         }
         else {
@@ -129,5 +129,5 @@
     if (@ChangesIDs) {
         print "Deleting specified changes...\n";
-        DeleteChanges( ChangesIDs => \@ChangesIDs );
+        DeleteChanges( %CommonObject, ChangesIDs => \@ChangesIDs );
     }
 }
@@ -148,10 +148,10 @@
 
     # get parameters
-    my (%Param) = @_;
+    my (%CommonObject) = @_;
 
     my $DeletedChanges = 0;
 
     # delete specified changes
-    for my $ChangeID ( @{ $Param{ChangesIDs} } ) {
+    for my $ChangeID ( @{ $CommonObject{ChangesIDs} } ) {
         my $True = $CommonObject{ChangeObject}->ChangeDelete(
             ChangeID => $ChangeID,
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log