loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.132, 2003/09/16 21:30:28	version 1.133, 2003/09/16 22:00:25
Line 974 sub publish {	Line 974 sub publish {

# -------------------------------------------------- Parse content for metadata	# -------------------------------------------------- Parse content for metadata
if (($style eq 'ssi') \|\| ($style eq 'prv')) {	if (($style eq 'ssi') \|\| ($style eq 'prv')) {
my $oldenv=$ENV{'request.uri'};	my $dir=$source;
	$dir=~s-/[^/]*$--;
$ENV{'request.uri'}=$target;	my $file=$source;
$allmeta=Apache::lonxml::xmlparse(undef,'meta',$content);	$file=(split('/',$file))[-1];
$ENV{'request.uri'}=$oldenv;	$source=&Apache::lonnet::hreflocation($dir,$file);
	$allmeta=&Apache::lonnet::ssi_body($source,('grade_target' => 'meta'));

&metaeval($allmeta);	&metaeval($allmeta);
}	}