projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
commiting rt 3.8.10 to HEAD
[freeside.git]
/
rt
/
lib
/
RT
/
Principal_Overlay.pm
diff --git
a/rt/lib/RT/Principal_Overlay.pm
b/rt/lib/RT/Principal_Overlay.pm
index
f465252
..
a8e8f3c
100644
(file)
--- a/
rt/lib/RT/Principal_Overlay.pm
+++ b/
rt/lib/RT/Principal_Overlay.pm
@@
-220,9
+220,9
@@
sub RevokeRight {
# }}}
# }}}
-# {{{ sub
_
CleanupInvalidDelegations
+# {{{ sub CleanupInvalidDelegations
-=head2 sub
_
CleanupInvalidDelegations { InsideTransaction => undef }
+=head2 sub CleanupInvalidDelegations { InsideTransaction => undef }
Revokes all ACE entries delegated by this principal which are
inconsistent with this principal's current delegation rights. Does
Revokes all ACE entries delegated by this principal which are
inconsistent with this principal's current delegation rights. Does
@@
-244,15
+244,19
@@
and logs an internal error if the deletion fails (should not happen).
# This is currently just a stub for the methods of the same name in
# RT::User and RT::Group.
# This is currently just a stub for the methods of the same name in
# RT::User and RT::Group.
-sub _CleanupInvalidDelegations {
+# backcompat for 3.8.8 and before
+*_CleanupInvalidDelegations = \&CleanupInvalidDelegations;
+
+sub CleanupInvalidDelegations {
my $self = shift;
unless ( $self->Id ) {
$RT::Logger->warning("Principal not loaded.");
return (undef);
}
my $self = shift;
unless ( $self->Id ) {
$RT::Logger->warning("Principal not loaded.");
return (undef);
}
- return ($self->Object->
_
CleanupInvalidDelegations(@_));
+ return ($self->Object->CleanupInvalidDelegations(@_));
}
}
+
# }}}
# {{{ sub HasRight
# }}}
# {{{ sub HasRight