--- loncom/publisher/lonpublisher.pm 2000/12/08 23:36:37 1.14 +++ loncom/publisher/lonpublisher.pm 2001/03/22 22:41:01 1.18 @@ -5,7 +5,7 @@ # # 05/29/00,05/30,10/11 Gerd Kortemeyer) # -# 11/28,11/29,11/30,12/01,12/02,12/04 Gerd Kortemeyer +# 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer package Apache::lonpublisher; @@ -15,9 +15,7 @@ use File::Copy; use Apache::Constants qw(:common :http :methods); use HTML::TokeParser; use Apache::lonxml; -use Apache::structuretags; -use Apache::inputtags; -use Apache::response; +use Apache::lonhomework; my %addid; my %nokey; @@ -291,7 +289,7 @@ sub publish { # -------------------------------------------------- Parse content for metadata my $allmeta=Apache::lonxml::xmlparse('meta',$content); - &metaeval($allmeta); +# &metaeval($allmeta); # ---------------- Find and document discrepancies in the parameters and stores @@ -618,6 +616,7 @@ sub handler { return OK; } +unless ($ENV{'form.pubdir'}) { # -------------------------------------------------------------- Check filename my $fn=$ENV{'form.filename'}; @@ -711,7 +710,8 @@ unless ($ENV{'form.phase'} eq 'two') { $r->send_http_header; $r->print('