loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.939, 2008/01/21 20:21:28	version 1.941, 2008/02/03 05:08:05
Line 3527 sub set_userprivs {	Line 3527 sub set_userprivs {
}	}
foreach my $role (keys(%{$allroles})) {	foreach my $role (keys(%{$allroles})) {
my %thesepriv;	my %thesepriv;
if (($role=~/^au/) \|\| ($role=~/^ca/)) { $author=1; }	if (($role=~/^au/) \|\| ($role=~/^ca/) \|\| ($role=~/^aa/)) { $author=1; }
foreach my $item (split(/:/,$$allroles{$role})) {	foreach my $item (split(/:/,$$allroles{$role})) {
if ($item ne '') {	if ($item ne '') {
my ($privilege,$restrictions)=split(/&/,$item);	my ($privilege,$restrictions)=split(/&/,$item);
Line 6751 sub EXT {	Line 6751 sub EXT {

sub get_reply {	sub get_reply {
my ($reply_value) = @_;	my ($reply_value) = @_;
if (wantarray) {	if (ref($reply_value) eq 'ARRAY') {
return @$reply_value;	if (wantarray) {
	return @$reply_value;
	}
	return $reply_value->[0];
	} else {
	return $reply_value;
}	}
return $reply_value->[0];
}	}

sub check_group_parms {	sub check_group_parms {