Skip to content
Extraits de code Groupes Projets
Valider 52e8d899 rédigé par TC's avatar TC
Parcourir les fichiers

Disambiguation (changement de noms de variables quoi)

parent 74c226df
Branches
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
......@@ -24,9 +24,9 @@ sub add_event
# ###
sub _register_event
{
my ($event, $when, $ref_function, $ref_obj) = @_;
my ($event_type, $when, $ref_function, $ref_obj) = @_;
return 0 unless(defined($event) and defined($when) and defined($ref_function));
return 0 unless(defined($event_type) and defined($when) and defined($ref_function));
if($when !~ /^before$/i && $when !~ /^after$/i)
{
......@@ -34,9 +34,9 @@ sub _register_event
return 0;
}
unless(defined($changed_events{$event}))
unless(defined($changed_events{$event_type}))
{
$changed_events{$event} = {
$changed_events{$event_type} = {
'before' => [],
'after' => [],
'default' => undef
......@@ -44,7 +44,7 @@ sub _register_event
}
# Ajout de la fonction[+objet] à la liste pour cet évènement
push @{$changed_events{$event}{lc $when}}, [$ref_function, $ref_obj];
push @{$changed_events{$event_type}{lc $when}}, [$ref_function, $ref_obj];
return 1;
} # Fin _register_event
......@@ -56,24 +56,24 @@ sub _register_event
# ###
sub _do_change_event
{
my $event = shift;
my $event_type = shift;
return 0 unless(defined($event));
return 0 unless(defined($event_type));
# Changement (ou rien du tout si on est déjà passé par là pour cet event)
# de la fonction pour cet évènement
if(defined($Hook::conn->{_handler}->{$event}))
if(defined($Hook::conn->{_handler}->{$event_type}))
{
my $may_default = $Hook::conn->{_handler}->{$event}->[0];
my $may_default = $Hook::conn->{_handler}->{$event_type}->[0];
if($may_default ne \&dispatch_event)
{
$changed_events{$event}{'default'} = $may_default;
$::logger->debug("Registering default action for event $event");
$changed_events{$event_type}{'default'} = $may_default;
$::logger->debug("Registering default action for event $event_type");
}
}
$::logger->info("Catching event $event from now on");
$Hook::conn->{_handler}->{$event} = [\&dispatch_event, 0];
$::logger->info("Catching event $event_type from now on");
$Hook::conn->{_handler}->{$event_type} = [\&dispatch_event, 0];
return 1;
} # Fin _do_change_event
......@@ -85,7 +85,7 @@ sub _do_change_event
# ###
sub remove_event
{
my ($event, $when, $ref_fn, $ref_obj) = @_;
my ($event_type, $when, $ref_fn, $ref_obj) = @_;
if($when !~ /^before$/i && $when !~ /^after$/i)
{
......@@ -93,21 +93,21 @@ sub remove_event
return 0;
}
if(defined($changed_events{$event}))
if(defined($changed_events{$event_type}))
{
my @new_list = ();
foreach my $hdls (@{$changed_events{$event}{lc $when}})
foreach my $hdls (@{$changed_events{$event_type}{lc $when}})
{
push @new_list, $hdls
unless($hdls->[0] == $ref_fn && $hdls->[1] == $ref_obj);
}
$changed_events{$event}{lc $when} = \@new_list;
$::logger->info("One handler for $event event removed");
$changed_events{$event_type}{lc $when} = \@new_list;
$::logger->info("One handler for $event_type event removed");
}
else
{
$::logger->error("No record for this event here");
$::logger->error("No record for the $event_type event here");
return 0;
}
......
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Veuillez vous inscrire ou vous pour commenter