![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
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')) { |