loncom/interface/courseprefs.pm - diff

Return to courseprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.64, 2013/12/25 09:52:42	version 1.65, 2014/05/16 17:13:31
Line 2056 sub print_courseinfo {	Line 2056 sub print_courseinfo {
my $clonesrc = $env{'course.'.$env{'request.course.id'}.'.clonedfrom'};	my $clonesrc = $env{'course.'.$env{'request.course.id'}.'.clonedfrom'};
my $clonedfrom = &mt('None');	my $clonedfrom = &mt('None');
if ($clonesrc =~ m{/$match_domain/$match_courseid}) {	if ($clonesrc =~ m{/$match_domain/$match_courseid}) {
my %clonesrcinfo = &Apache::lonnet::coursedescription($cdom.'/'.$cnum);	my %clonesrcinfo = &Apache::lonnet::coursedescription($clonesrc);
if ($clonesrcinfo{'description'}) {	if ($clonesrcinfo{'description'}) {
$clonedfrom = $clonesrcinfo{'description'}.' '.($clonesrc);	$clonedfrom = $clonesrcinfo{'description'}.' '.($clonesrc);
}	}