loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.67, 2006/06/22 14:53:15	version 1.69, 2006/10/17 15:11:26
Line 77 sub end_page {	Line 77 sub end_page {
=cut	=cut

sub get_course {	sub get_course {
(undef,my $courseid)=&Apache::lonxml::whichuser();	(undef,my $courseid)=&Apache::lonnet::whichuser();
my $cdom=$env{'course.'.$courseid.'.domain'};	my $cdom=$env{'course.'.$courseid.'.domain'};
my $cnum=$env{'course.'.$courseid.'.num'};	my $cnum=$env{'course.'.$courseid.'.num'};
return ($cnum,$cdom);	return ($cnum,$cdom);
Line 675 sub allowed_slot {	Line 675 sub allowed_slot {
split(',',$slot->{'allowedsections'}))) {	split(',',$slot->{'allowedsections'}))) {
$userallowed=1;	$userallowed=1;
}	}
	if (defined($env{'request.course.groups'})) {
	my @groups = split(/:/,$env{'request.course.groups'});
	my @allowed_sec = split(',',$slot->{'allowedsections'});
	foreach my $group (@groups) {
	if (grep {$_ eq $group} (@allowed_sec)) {
	$userallowed=1;
	last;
	}
	}
	}
}	}
&Apache::lonxml::debug("$slot_name sections is $userallowed");	&Apache::lonxml::debug("$slot_name sections is $userallowed");