loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.68, 2006/06/30 04:28:18	version 1.68.2.2, 2006/10/31 15:58:41
Line 433 sub release_slot {	Line 433 sub release_slot {

if ($mgr eq 'F'	if ($mgr eq 'F'
&& defined($env{'form.symb'})) {	&& defined($env{'form.symb'})) {
$symb = $env{'form.symb'};	$symb = &unescape($env{'form.symb'});
}	}

my ($result,$msg) =	my ($result,$msg) =
Line 759 sub show_choices {	Line 759 sub show_choices {
my $text=&mt('Select');	my $text=&mt('Select');
my $command='get';	my $command='get';
if (grep(/^\Q$slot\E$/,@got_slots)) {	if (grep(/^\Q$slot\E$/,@got_slots)) {
$text=&mt('Free Reservation');	$text=&mt('Drop Reservation');
$command='release';	$command='release';
} else {	} else {
my $conflict = &check_for_conflict($symb,$slot,$slots{$slot},	my $conflict = &check_for_conflict($symb,$slot,$slots{$slot},