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); |
} | } |