loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.50, 2006/03/07 21:37:29	version 1.53, 2006/03/21 16:03:19
Line 54 sub fail {	Line 54 sub fail {

sub start_page {	sub start_page {
my ($r,$title)=@_;	my ($r,$title)=@_;
my $html=&Apache::lonxml::xmlbegin();	$r->print(&Apache::loncommon::start_page($title));
$r->print($html.'<head><title>'.&mt($title).'</title></head>');
$r->print(&Apache::loncommon::bodytag($title));
}	}

sub end_page {	sub end_page {
my ($r)=@_;	my ($r)=@_;
$r->print(&Apache::loncommon::endbodytag().'</html>');	$r->print(&Apache::loncommon::end_page());
}	}

=pod	=pod
Line 550 sub allowed_slot {	Line 548 sub allowed_slot {
}	}
&Apache::lonxml::debug("$slot_name type good");	&Apache::lonxml::debug("$slot_name type good");

	# reserve time not yet started
	if ($slot->{'startreserve'} > time) {
	return 0;
	}
	&Apache::lonxml::debug("$slot_name reserve good");

my $userallowed=0;	my $userallowed=0;
# its for a different set of users	# its for a different set of users
if (defined($slot->{'allowedsections'})) {	if (defined($slot->{'allowedsections'})) {
Line 572 sub allowed_slot {	Line 576 sub allowed_slot {
split(',',$slot->{'allowedusers'}))) {	split(',',$slot->{'allowedusers'}))) {
$userallowed=1;	$userallowed=1;
}	}

	if (!defined($slot->{'allowedusers'})
	&& !defined($slot->{'allowedsections'})) {
	$userallowed=1;
	}

&Apache::lonxml::debug("$slot_name user is $userallowed");	&Apache::lonxml::debug("$slot_name user is $userallowed");
return 0 if (!$userallowed);	return 0 if (!$userallowed);