loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.60, 2004/02/09 20:22:18	version 1.62, 2004/04/06 15:07:41
Line 302 sub prettyprint {	Line 302 sub prettyprint {
($type eq 'sequsage_list')) {	($type eq 'sequsage_list')) {
return join('<br />',map {	return join('<br />',map {
my $url=&Apache::lonnet::clutter($_);	my $url=&Apache::lonnet::clutter($_);
'<br /><b>'.&Apache::lonnet::gettitle($url).'</b>'.	'<b>'.&Apache::lonnet::gettitle($url).'</b>'.
&Apache::lonhtmlcommon::crumbs($url,'preview','');	&Apache::lonhtmlcommon::crumbs($url,'preview','',undef,'+0');
} split(/\s\,\s/,$value));	} split(/\s\,\s/,$value));
}	}
# Evaluations	# Evaluations
Line 711 ENDEDIT	Line 711 ENDEDIT
print $mfh ' '.$_.'="'.$value.'"';	print $mfh ' '.$_.'="'.$value.'"';
}	}
print $mfh '>'.	print $mfh '>'.
&HTML::Entities::encode($Apache::lonpublisher::metadatafields{$unikey})	&HTML::Entities::encode($Apache::lonpublisher::metadatafields{$unikey},'<>&"')
.'</'.$tag.'>';	.'</'.$tag.'>';
}	}
}	}