loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.11, 2005/09/06 20:54:58	version 1.12, 2005/09/06 21:31:03
Line 514 sub handler {	Line 514 sub handler {
return OK;	return OK;
}	}
$env{'request.symb'}=$symb;	$env{'request.symb'}=$symb;
	my $vgr=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});
if ($env{'form.command'} eq 'showslots' && $vgr eq 'F') {	if ($env{'form.command'} eq 'showslots' && $vgr eq 'F') {
&show_table($r,$symb);	&show_table($r,$symb);
} else {	} else {
Line 524 sub handler {	Line 525 sub handler {
&fail($r,'not_allowed');	&fail($r,'not_allowed');
return OK;	return OK;
}	}
my $vgr=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});
if ($env{'form.requestattempt'}) {	if ($env{'form.requestattempt'}) {
&show_choices($r,$symb);	&show_choices($r,$symb);
} elsif ($env{'form.command'} eq 'release') {	} elsif ($env{'form.command'} eq 'release') {