|
version 1.195, 2013/04/11 14:59:48
|
version 1.196, 2013/06/04 23:12:08
|
|
Line 5461 sub publishlogo {
|
Line 5461 sub publishlogo {
|
| my $source = $filepath.'/'.$file; |
my $source = $filepath.'/'.$file; |
| my $logfile; |
my $logfile; |
| if (!open($logfile,">>$source".'.log')) { |
if (!open($logfile,">>$source".'.log')) { |
| return (&mt('No write permission to Construction Space')); |
return (&mt('No write permission to Authoring Space')); |
| } |
} |
| print $logfile |
print $logfile |
| "\n================= Publish ".localtime()." ================\n". |
"\n================= Publish ".localtime()." ================\n". |
![[BACK]](/icons/back.gif){kind=icon}
Return to domainprefs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface