loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.153, 2006/03/16 22:12:17	version 1.154, 2006/04/26 14:53:52
Line 486 sub prettyprint {	Line 486 sub prettyprint {
my @Courses = split(/\s\,\s/,$value);	my @Courses = split(/\s\,\s/,$value);
my $Str='<font size="-1"><ul>';	my $Str='<font size="-1"><ul>';
foreach my $course (@Courses) {	foreach my $course (@Courses) {
my %courseinfo = &Apache::lonnet::coursedescription($course);	my %courseinfo =
	&Apache::lonnet::coursedescription($course,
	{'one_time' => 1});
if (! exists($courseinfo{'num'}) \|\| $courseinfo{'num'} eq '') {	if (! exists($courseinfo{'num'}) \|\| $courseinfo{'num'} eq '') {
next;	next;
}	}
Line 944 sub print_dynamic_metadata {	Line 946 sub print_dynamic_metadata {
foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) {	foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) {
my $data = $dynmeta{'stats'}->{$identifier};	my $data = $dynmeta{'stats'}->{$identifier};
my $course = $data->{'course'};	my $course = $data->{'course'};
my %courseinfo = &Apache::lonnet::coursedescription($course);	my %courseinfo =
	&Apache::lonnet::coursedescription($course,
	{'one_time' => 1});
if (! exists($courseinfo{'num'}) \|\| $courseinfo{'num'} eq '') {	if (! exists($courseinfo{'num'}) \|\| $courseinfo{'num'} eq '') {
&Apache::lonnet::logthis('lookup for '.$course.' failed');	&Apache::lonnet::logthis('lookup for '.$course.' failed');
next;	next;