diff options
author | mkanat%bugzilla.org <> | 2009-11-23 07:34:29 +0100 |
---|---|---|
committer | mkanat%bugzilla.org <> | 2009-11-23 07:34:29 +0100 |
commit | eea9be3a4f613ba827d9f7f4a01611c1ae176306 (patch) | |
tree | 7ff6fe86e17c7b50ff050985d37aa6ba05616027 /extensions | |
parent | 71a42cb2a361258502b853c7ec83f184dd2d24cc (diff) | |
download | bugzilla-eea9be3a4f613ba827d9f7f4a01611c1ae176306.tar.gz bugzilla-eea9be3a4f613ba827d9f7f4a01611c1ae176306.tar.xz |
Bug 528062: Hook: Object-end_of_update
Patch by Max Kanat-Alexander <mkanat@bugzilla.org> (module owner) a=mkanat
Diffstat (limited to 'extensions')
-rw-r--r-- | extensions/example/code/object-end_of_update.pl | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/extensions/example/code/object-end_of_update.pl b/extensions/example/code/object-end_of_update.pl new file mode 100644 index 000000000..72773cf60 --- /dev/null +++ b/extensions/example/code/object-end_of_update.pl @@ -0,0 +1,34 @@ +# -*- Mode: perl; indent-tabs-mode: nil -*- +# +# The contents of this file are subject to the Mozilla Public +# License Version 1.1 (the "License"); you may not use this file +# except in compliance with the License. You may obtain a copy of +# the License at http://www.mozilla.org/MPL/ +# +# Software distributed under the License is distributed on an "AS +# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or +# implied. See the License for the specific language governing +# rights and limitations under the License. +# +# The Original Code is the Bugzilla Example Plugin. +# +# The Initial Developer of the Original Code is ITA Software +# Portions created by the Initial Developer are Copyright (C) 2009 +# the Initial Developer. All Rights Reserved. +# +# Contributor(s): +# Max Kanat-Alexander <mkanat@bugzilla.org> + +use strict; +use warnings; + +my $args = Bugzilla->hook_args; +my ($object, $old_object, $changes) = @$args{qw(object old_object changes)}; + +# Note that this is a made-up class, for this example. +if ($object->isa('Bugzilla::ExampleObject')) { + if (defined $changes->{'name'}) { + my ($old, $new) = @{ $changes->{'name'} }; + print "The name field changed from $old to $new!"; + } +} |