loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1264, 2016/11/21 00:06:19	version 1.1265, 2016/11/22 00:43:12
Line 2185 sub crsauthor_url {	Line 2185 sub crsauthor_url {
}	}

sub import_crsauthor_form {	sub import_crsauthor_form {
my ($form,$firstselectname,$secondselectname,$onchangefirst,$only,$suffix) = @_;	my ($form,$firstselectname,$secondselectname,$onchangefirst,$only,$suffix,$disabled) = @_;
return (0) unless ($env{'request.course.id'});	return (0) unless ($env{'request.course.id'});
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};