loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.24, 2002/10/25 13:50:48	version 1.27, 2003/03/14 02:26:12
Line 98 sub dynamicmeta {	Line 98 sub dynamicmeta {
return %returnhash;	return %returnhash;
}	}

	# ------------------------------------- Try to make an alt tag if there is none

	sub alttag {
	my ($base,$src)=@_;
	my $fullpath=&Apache::lonnet::hreflocation($base,$src);
	my $alttag=&Apache::lonnet::metadata($fullpath,'title').' '.
	&Apache::lonnet::metadata($fullpath,'subject').' '.
	&Apache::lonnet::metadata($fullpath,'abstract');
	$alttag=~s/\s+/ /gs;
	$alttag=~s/\"//gs;
	$alttag=~s/\'//gs;
	$alttag=~s/\s+$//gs;
	$alttag=~s/^\s+//gs;
	if ($alttag) { return $alttag; } else
	{ return 'No information available'; }
	}

# -------------------------------------------------------------- Pretty display	# -------------------------------------------------------------- Pretty display

sub evalgraph {	sub evalgraph {
Line 363 $bodytag	Line 380 $bodytag
<form method="post">	<form method="post">
ENDEDIT	ENDEDIT
foreach ('author','title','subject','keywords','abstract','notes',	foreach ('author','title','subject','keywords','abstract','notes',
'copyright','language') {	'copyright','customdistributionfile','language') {
if ($ENV{'form.new_'.$_}) {	if ($ENV{'form.new_'.$_}) {
$Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};	$Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};
}	}