[otrs-cvs] ITSMChangeManagement/bin otrs.ITSMChangeDelete.pl, 1.3, 1.3.2.1

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

Modified Files:
      Tag: rel-3_0
	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.3
retrieving revision 1.3.2.1
diff -2 -u -d -r1.3 -r1.3.2.1
--- otrs.ITSMChangeDelete.pl	9 Feb 2011 10:22:06 -0000	1.3
+++ otrs.ITSMChangeDelete.pl	27 Jun 2013 21:24:50 -0000	1.3.2.1
@@ -2,5 +2,5 @@
 # --
 # bin/otrs.ITSMChangeDelete.pl - to delete changes
-# Copyright (C) 2001-2011 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -18,5 +18,5 @@
 # You should have received a copy of the GNU Affero General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
 # or see http://www.gnu.org/licenses/agpl.txt.
 # --
@@ -62,5 +62,5 @@
 print "otrs.ITSMChangeDelete.pl <Revision $VERSION> - ";
 print "delete changes (all or by number).\n";
-print "Copyright (C) 2001-2011 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