|
version 1.113, 2011/11/02 19:12:40
|
version 1.115, 2012/06/04 19:23:41
|
|
Line 206 sub obsolete_unpub {
|
Line 206 sub obsolete_unpub {
|
| # see if directory is empty |
# see if directory is empty |
| # ignores any .meta, .save, .bak, and .log files created for a previously |
# ignores any .meta, .save, .bak, and .log files created for a previously |
| # published file, which has since been marked obsolete and deleted. |
# published file, which has since been marked obsolete and deleted. |
| |
# ignores a .DS_Store file put there when viewing directory via webDAV on MacOS. |
| sub empty_directory { |
sub empty_directory { |
| my ($dirname,$phase) = @_; |
my ($dirname,$phase) = @_; |
| if (opendir DIR, $dirname) { |
if (opendir DIR, $dirname) { |
| my @files = grep(!/^\.\.?$/, readdir(DIR)); # ignore . and .. |
my @files = grep(!/^\.\.?$/, readdir(DIR)); # ignore . and .. |
| if (@files) { |
if (@files) { |
| my @orphans = grep(/\.(meta|save|log|bak)$/,@files); |
my @orphans = grep(/\.(meta|save|log|bak|DS_Store)$/,@files); |
| if (scalar(@files) - scalar(@orphans) > 0) { |
if (scalar(@files) - scalar(@orphans) > 0) { |
| return 0; |
return 0; |
| } else { |
} else { |
|
Line 1480 function writeDone() {
|
Line 1481 function writeDone() {
|
| &Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
| &Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
| 'text' => 'Construction Space', |
'text' => 'Construction Space', |
| 'href' => &Apache::loncommon::authorspace(), |
'href' => &Apache::loncommon::authorspace($fn), |
| }); |
}); |
| &Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
| 'text' => 'File Operation', |
'text' => 'File Operation', |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncfile.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher