Lines 1949-1959
sub haspermission {
Link Here
|
1949 |
if ( $subperm eq '*' ) { |
1949 |
if ( $subperm eq '*' ) { |
1950 |
return 0 unless ( $flags->{$module} == 1 or ref( $flags->{$module} ) ); |
1950 |
return 0 unless ( $flags->{$module} == 1 or ref( $flags->{$module} ) ); |
1951 |
} else { |
1951 |
} else { |
1952 |
return 0 unless ( $flags->{$module} == 1 or |
1952 |
return 0 unless ( |
|
|
1953 |
( defined $flags->{$module} and |
1954 |
$flags->{$module} == 1 ) |
1955 |
or |
1953 |
( ref( $flags->{$module} ) and |
1956 |
( ref( $flags->{$module} ) and |
1954 |
exists $flags->{$module}->{$subperm} and |
1957 |
exists $flags->{$module}->{$subperm} and |
1955 |
$flags->{$module}->{$subperm} == 1 |
1958 |
$flags->{$module}->{$subperm} == 1 ) |
1956 |
) |
|
|
1957 |
); |
1959 |
); |
1958 |
} |
1960 |
} |
1959 |
} |
1961 |
} |
1960 |
- |
|
|