--- loncom/publisher/lonpublisher.pm 2000/12/04 15:39:28 1.13 +++ loncom/publisher/lonpublisher.pm 2000/12/23 15:53:26 1.15 @@ -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; @@ -520,12 +520,14 @@ if (-e $target) { $copyfile=$copyfile.'.meta'; if (copy($target.'.meta',$copyfile)) { - print $logfile "Copied old target metadata to ".$copyfile."\n"; + print $logfile "Copied old target metadata to ".$copyfile."\n"; $scrout.='
Copied old metadata'; } else { print $logfile "Unable to write metadata ".$copyfile.':'.$!."\n"; - return + if (-e $target.'.meta') { + return "Failed to write old metadata copy, $!, FAIL"; + } } @@ -616,6 +618,7 @@ sub handler { return OK; } +unless ($ENV{'form.pubdir'}) { # -------------------------------------------------------------- Check filename my $fn=$ENV{'form.filename'}; @@ -709,7 +712,8 @@ unless ($ENV{'form.phase'} eq 'two') { $r->send_http_header; $r->print('