loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.236, 2009/10/23 11:01:49	version 1.237, 2009/12/01 18:07:50
Line 425 sub select_course {	Line 425 sub select_course {
# Pretty printing of metadata field	# Pretty printing of metadata field

sub prettyprint {	sub prettyprint {
my ($type,$value,$target,$prefix,$form,$noformat)=@_;	my ($type,$value,$target,$prefix,$form)=@_;
# $target,$prefix,$form are optional and for filecrumbs only	# $target,$prefix,$form are optional and for filecrumbs only
if (! defined($value)) {	if (! defined($value)) {
return ' ';	return ' ';
Line 500 sub prettyprint {	Line 500 sub prettyprint {
}	}
}	}
$_ = '<li>'.$title.' '.	$_ = '<li>'.$title.' '.
&Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'0',$noformat).	&Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form).
'</li>'	'</li>'
} split(/\s\,\s/,$value)).'</ul>';	} split(/\s\,\s/,$value)).'</ul>';
}	}
# Evaluations	# Evaluations
Line 929 sub present_uneditable_metadata {	Line 929 sub present_uneditable_metadata {
$versiondisplay='Version: '.$currentversion;	$versiondisplay='Version: '.$currentversion;
}	}
}	}
# crumbify displayed URL uri target prefix form size	# crumbify displayed URL uri target prefix form
$disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef,'+1');	$disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef);
$disuri =~ s:<br />::g;
# obsolete	# obsolete
my $obsolete=$content{'obsolete'};	my $obsolete=$content{'obsolete'};
my $obsoletewarning='';	my $obsoletewarning='';