![[BACK]](/icons/back.gif){kind=icon}
Return to lonuserutils.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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); |
| } | } |