![[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.210, 2022/02/14 01:15:24 | version 1.211, 2022/11/17 19:07:21 |
|---|---|
| Line 6194 sub get_permission { | Line 6194 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); |
| } | } |