loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.235, 2006/12/11 04:10:35	version 1.236, 2006/12/11 18:50:40
Line 2667 sub secapply {	Line 2667 sub secapply {
my $defaultflag=shift;	my $defaultflag=shift;
$rec=~s/\s+//g;	$rec=~s/\s+//g;
$rec=~s/\@/\:/g;	$rec=~s/\@/\:/g;
my ($adr,$sections)=($rec=~/^([^$]+)\(([^$]+)\)/);	my ($adr,$sections_or_groups)=($rec=~/^([^$]+)\(([^$]+)\)/);
if ($sections) {	if ($sections_or_groups) {
foreach my $sec (split(/\;/,$sections)) {	foreach my $item (split(/\;/,$sections_or_groups)) {
if (($sec eq $env{'request.course.sec'}) \|\|	if (($item eq $env{'request.course.sec'}) \|\|
($defaultflag && ($sec eq '*'))) {	($defaultflag && ($item eq '*'))) {
return $adr;	return $adr;
}	} elsif ($env{'request.course.groups'}) {
	my @usersgroups = split(/:/,$env{'request.course.groups'});
	if (grep(/^\Q$item\E$/,@usersgroups)) {
	return $adr;
	}
	}
}	}
} else {	} else {
return $rec;	return $rec;