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.52, 2006/03/15 19:41:26
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 572 sub allowed_slot {	Line 570 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);