loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.68.2.1, 2006/10/29 16:23:58	version 1.69, 2006/10/17 15:11:26
Line 77 sub end_page {	Line 77 sub end_page {
=cut	=cut

sub get_course {	sub get_course {
(undef,my $courseid)=&Apache::lonxml::whichuser();	(undef,my $courseid)=&Apache::lonnet::whichuser();
my $cdom=$env{'course.'.$courseid.'.domain'};	my $cdom=$env{'course.'.$courseid.'.domain'};
my $cnum=$env{'course.'.$courseid.'.num'};	my $cnum=$env{'course.'.$courseid.'.num'};
return ($cnum,$cdom);	return ($cnum,$cdom);
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('Drop Reservation');	$text=&mt('Free 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},