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.13, 2005/09/09 18:27:56
Line 473 sub show_table {	Line 473 sub show_table {
(keys(%slots))) {	(keys(%slots))) {
if (defined($slots{$slot}->{'type'})	if (defined($slots{$slot}->{'type'})
&& $slots{$slot}->{'type'} ne 'schedulable_student') {	&& $slots{$slot}->{'type'} ne 'schedulable_student') {
next;	#next;
}	}
my $description=&get_description($slot,$slots{$slot});	my $description=&get_description($slot,$slots{$slot});
my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,	my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
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') {