version 1.297, 2016/06/19 04:27:57
|
version 1.298, 2021/06/03 13:59:44
|
Line 2277 sub publishdirectory {
|
Line 2277 sub publishdirectory {
|
&checkbox('forcerepub','force republication of previously published files'). |
&checkbox('forcerepub','force republication of previously published files'). |
&checkbox('obsolete','make file(s) obsolete'). |
&checkbox('obsolete','make file(s) obsolete'). |
&checkbox('forceoverride','force directory level metadata over existing'). |
&checkbox('forceoverride','force directory level metadata over existing'). |
|
&checkbox('excludeunpub','exclude currently unpublished files'). |
&common_access('dist',&mt('apply common copyright/distribution'), |
&common_access('dist',&mt('apply common copyright/distribution'), |
['default','domain','custom']). |
['default','domain','custom']). |
&common_access('source',&mt('apply common source availability'), |
&common_access('source',&mt('apply common source availability'), |
Line 2309 sub publishdirectory {
|
Line 2310 sub publishdirectory {
|
} |
} |
} elsif ((&Apache::loncommon::fileembstyle($extension) ne 'hdn') && |
} elsif ((&Apache::loncommon::fileembstyle($extension) ne 'hdn') && |
($filename!~/^[\#\.]/) && ($filename!~/\~$/)) { |
($filename!~/^[\#\.]/) && ($filename!~/\~$/)) { |
# find out publication status and/or exiting metadata |
# find out publication status and/or existing metadata |
my $publishthis=0; |
my $publishthis=0; |
if (-e $resdir.'/'.$filename) { |
if (-e $resdir.'/'.$filename) { |
my ($rdev,$rino,$rmode,$rnlink, |
my ($rdev,$rino,$rmode,$rnlink, |
Line 2327 sub publishdirectory {
|
Line 2328 sub publishdirectory {
|
} |
} |
} else { |
} else { |
# never published |
# never published |
$publishthis=1; |
unless ($env{'form.excludeunpub'}) { |
|
$publishthis=1; |
|
} |
} |
} |
|
|
if ($publishthis) { |
if ($publishthis) { |