Return to lonpublisher.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
version 1.108, 2003/02/03 18:03:53 | version 1.109, 2003/02/18 13:20:13 |
---|---|
Line 1199 sub phasetwo { | Line 1199 sub phasetwo { |
my ($r,$source,$target,$style,$distarget,$batch)=@_; | my ($r,$source,$target,$style,$distarget,$batch)=@_; |
$source=~s/\/+/\//g; | $source=~s/\/+/\//g; |
$target=~s/\/+/\//g; | $target=~s/\/+/\//g; |
if ($target=~/\_\_\_/) { | |
return | |
'<font color=red>Unsupported character combination "<tt>___</tt>" in filename, FAIL</font>'; | |
} | |
$distarget=~s/\/+/\//g; | $distarget=~s/\/+/\//g; |
my $logfile; | my $logfile; |
unless ($logfile=Apache::File->new('>>'.$source.'.log')) { | unless ($logfile=Apache::File->new('>>'.$source.'.log')) { |