loncom/interface/courseprefs.pm - diff

Return to courseprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.49.2.12, 2013/12/27 15:06:40	version 1.49.2.13, 2014/05/16 19:19:01
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);
}	}