loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.68.2.2, 2006/10/31 15:58:41	version 1.70, 2006/10/29 16:22:13
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 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 = &unescape($env{'form.symb'});	$symb = $env{'form.symb'};
}	}

my ($result,$msg) =	my ($result,$msg) =