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); |
} |
} |