--- loncom/publisher/lonpublisher.pm 2003/02/18 13:20:13 1.109 +++ loncom/publisher/lonpublisher.pm 2003/02/18 16:29:37 1.110 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Publication Handler # -# $Id: lonpublisher.pm,v 1.109 2003/02/18 13:20:13 www Exp $ +# $Id: lonpublisher.pm,v 1.110 2003/02/18 16:29:37 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1201,14 +1201,16 @@ sub phasetwo { $target=~s/\/+/\//g; if ($target=~/\_\_\_/) { - return - 'Unsupported character combination "___" in filename, FAIL'; + $r->print( + 'Unsupported character combination "___" in filename, FAIL'); + return 0; } $distarget=~s/\/+/\//g; my $logfile; unless ($logfile=Apache::File->new('>>'.$source.'.log')) { - return - 'No write permission to user directory, FAIL'; + $r->print( + 'No write permission to user directory, FAIL'); + return 0; } print $logfile "\n================= Publish ".localtime()." Phase Two ================\n";