diff options
| -rwxr-xr-x | LedgerSMB.pm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm index 8e0dcb3d..3f15ecc7 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -48,6 +48,11 @@ characters or is an empty string. This function returns 1 if the run mode is what is specified. Otherwise returns 0. +=item is_allowed_role(allowed_roles => @role_names) +This function returns 1 if the user's roles include any of the roles in +@role_names. Currently it returns 1 when this is not found as well but when +role permissions are introduced, this will change to 0. + =item num_text_rows (string => $string, cols => $number, max => $number); This function determines the likely number of rows needed to hold text in a @@ -451,6 +456,19 @@ sub call_procedure { @results; } +# Keeping this here due to common requirements +sub is_allowed_role { + my $self = shift @_; + my %args = @_; + my @roles = @{$args{allowed_roles}} + for $role (@roles){ + if (scalar(grep /^$role$/, $self->{_roles})){ + return 1; + } + } + return 1; # TODO change to 0 when the role system is implmented +} + # This should probably be moved to User too... sub date_to_number { |