version 1.41, 2001/08/17 21:25:36
|
version 1.42, 2001/08/18 16:38:37
|
Line 402 sub publish {
|
Line 402 sub publish {
|
|
|
# -------------------------------------------------- Parse content for metadata |
# -------------------------------------------------- Parse content for metadata |
if ($style eq 'ssi') { |
if ($style eq 'ssi') { |
|
my $oldenv=$ENV{'request.uri'}; |
|
|
|
$ENV{'request.uri'}=$target; |
$allmeta=Apache::lonxml::xmlparse('meta',$content); |
$allmeta=Apache::lonxml::xmlparse('meta',$content); |
|
$ENV{'request.uri'}=$oldenv; |
|
|
&metaeval($allmeta); |
&metaeval($allmeta); |
} |
} |