diff options
| -rw-r--r-- | Bugzilla/Hook.pm | 19 | ||||
| -rw-r--r-- | Bugzilla/Object.pm | 1 | ||||
| -rw-r--r-- | extensions/Example/Extension.pm | 12 |
3 files changed, 32 insertions, 0 deletions
diff --git a/Bugzilla/Hook.pm b/Bugzilla/Hook.pm index b8d763d20..7f85e70d8 100644 --- a/Bugzilla/Hook.pm +++ b/Bugzilla/Hook.pm @@ -704,6 +704,25 @@ A hashref. The set of named parameters passed to C<create>. =back + +=head2 object_before_delete + +This happens in L<Bugzilla::Object/remove_from_db>, after we've confirmed +that the object can be deleted, but before any rows have actually +been removed from the database. This sometimes occurs inside a database +transaction. + +Params: + +=over + +=item C<object> - The L<Bugzilla::Object> being deleted. You will probably +want to check its type like C<< $object->isa('Some::Class') >> before doing +anything with it. + +=back + + =head2 object_before_set Called during L<Bugzilla::Object/set>, before any actual work is done. diff --git a/Bugzilla/Object.pm b/Bugzilla/Object.pm index e50be1fbf..2477244df 100644 --- a/Bugzilla/Object.pm +++ b/Bugzilla/Object.pm @@ -383,6 +383,7 @@ sub update { sub remove_from_db { my $self = shift; + Bugzilla::Hook::process('object_before_delete', { object => $self }); my $table = $self->DB_TABLE; my $id_field = $self->ID_FIELD; Bugzilla->dbh->do("DELETE FROM $table WHERE $id_field = ?", diff --git a/extensions/Example/Extension.pm b/extensions/Example/Extension.pm index 835d36f80..26a91b789 100644 --- a/extensions/Example/Extension.pm +++ b/extensions/Example/Extension.pm @@ -354,6 +354,18 @@ sub object_before_create { } } +sub object_before_delete { + my ($self, $args) = @_; + + my $object = $args->{'object'}; + + # Note that this is a made-up class, for this example. + if ($object->isa('Bugzilla::ExampleObject')) { + my $id = $object->id; + warn "An object with id $id is about to be deleted!"; + } +} + sub object_before_set { my ($self, $args) = @_; |