--- loncom/publisher/lonpublisher.pm 2003/09/16 21:30:28 1.132 +++ loncom/publisher/lonpublisher.pm 2003/09/16 22:00:25 1.133 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Publication Handler # -# $Id: lonpublisher.pm,v 1.132 2003/09/16 21:30:28 albertel Exp $ +# $Id: lonpublisher.pm,v 1.133 2003/09/16 22:00:25 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -974,11 +974,12 @@ sub publish { # -------------------------------------------------- Parse content for metadata if (($style eq 'ssi') || ($style eq 'prv')) { - my $oldenv=$ENV{'request.uri'}; - - $ENV{'request.uri'}=$target; - $allmeta=Apache::lonxml::xmlparse(undef,'meta',$content); - $ENV{'request.uri'}=$oldenv; + my $dir=$source; + $dir=~s-/[^/]*$--; + my $file=$source; + $file=(split('/',$file))[-1]; + $source=&Apache::lonnet::hreflocation($dir,$file); + $allmeta=&Apache::lonnet::ssi_body($source,('grade_target' => 'meta')); &metaeval($allmeta); }