--- 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";