version 1.110, 2003/02/18 16:29:37
|
version 1.111, 2003/02/18 23:13:54
|
Line 117 use File::Copy;
|
Line 117 use File::Copy;
|
use Apache::Constants qw(:common :http :methods); |
use Apache::Constants qw(:common :http :methods); |
use HTML::LCParser; |
use HTML::LCParser; |
use Apache::lonxml; |
use Apache::lonxml; |
use Apache::lonhomework; |
|
use Apache::loncacc; |
use Apache::loncacc; |
use DBI; |
use DBI; |
use Apache::lonnet(); |
use Apache::lonnet(); |
Line 949 sub publish {
|
Line 948 sub publish {
|
my $oldenv=$ENV{'request.uri'}; |
my $oldenv=$ENV{'request.uri'}; |
|
|
$ENV{'request.uri'}=$target; |
$ENV{'request.uri'}=$target; |
|
$Apache::lonxml::debug=1; |
$allmeta=Apache::lonxml::xmlparse(undef,'meta',$content); |
$allmeta=Apache::lonxml::xmlparse(undef,'meta',$content); |
|
$Apache::lonxml::debug=0; |
$ENV{'request.uri'}=$oldenv; |
$ENV{'request.uri'}=$oldenv; |
|
|
&metaeval($allmeta); |
&metaeval($allmeta); |