Return to lonuserutils.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.184.4.10.2.1, 2022/02/20 19:48:31 | version 1.184.4.10.2.2, 2023/01/22 17:21:54 |
---|---|
Line 6114 sub get_permission { | Line 6114 sub get_permission { |
} | } |
} | } |
my $allowed = 0; | my $allowed = 0; |
foreach my $perm (values(%permission)) { | foreach my $key (keys(%permission)) { |
if ($perm) { $allowed=1; last; } | next if (($key eq 'owner') || ($key eq 'co-owner')); |
if ($permission{$key}) { $allowed=1; last; } | |
} | } |
return (\%permission,$allowed); | return (\%permission,$allowed); |
} | } |