version 1.295.2.1, 2021/06/04 15:09:36
|
version 1.295.2.1.2.2, 2024/06/01 22:41:28
|
Line 1924 sub phasetwo {
|
Line 1924 sub phasetwo {
|
|
|
# ------------------------------------------------------------- Trigger updates |
# ------------------------------------------------------------- Trigger updates |
push(@{$modified_urls},[$target,$source]); |
push(@{$modified_urls},[$target,$source]); |
unless ($registered_cleanup) { |
¬ify_in_cleanup($r); |
my $handlers = $r->get_handlers('PerlCleanupHandler'); |
|
$r->set_handlers('PerlCleanupHandler' => [\¬ify,@{$handlers}]); |
|
$registered_cleanup=1; |
|
} |
|
|
|
# ---------------------------------------------------------- Clear local caches |
# ---------------------------------------------------------- Clear local caches |
my $thisdistarget=$target; |
my $thisdistarget=$target; |
Line 1964 sub phasetwo {
|
Line 1960 sub phasetwo {
|
return 1; |
return 1; |
} |
} |
|
|
|
sub notify_in_cleanup { |
|
my ($r) = @_; |
|
unless ($registered_cleanup) { |
|
my $handlers = $r->get_handlers('PerlCleanupHandler'); |
|
$r->set_handlers('PerlCleanupHandler' => [\¬ify,@{$handlers}]); |
|
$registered_cleanup=1; |
|
} |
|
} |
|
|
# =============================================================== Notifications |
# =============================================================== Notifications |
sub notify { |
sub notify { |
# --------------------------------------------------- Send update notifications |
# --------------------------------------------------- Send update notifications |
Line 2092 sub publishdirectory {
|
Line 2097 sub publishdirectory {
|
'<fieldset><legend>'.&mt('Actions').'</legend>'. |
'<fieldset><legend>'.&mt('Actions').'</legend>'. |
&checkbox('obsolete','make file(s) obsolete').'<br />'. |
&checkbox('obsolete','make file(s) obsolete').'<br />'. |
&common_access('dist',&mt('apply common copyright/distribution'), |
&common_access('dist',&mt('apply common copyright/distribution'), |
['default','domain','custom']).'<br />'. |
['default','domain','public','custom']).'<br />'. |
&common_access('source',&mt('apply common source availability'), |
&common_access('source',&mt('apply common source availability'), |
['closed','open']). |
['closed','open']). |
'</fieldset>' |
'</fieldset>' |
Line 2109 sub publishdirectory {
|
Line 2114 sub publishdirectory {
|
my %commonaccess; |
my %commonaccess; |
map { $commonaccess{$_} = 1; } &Apache::loncommon::get_env_multiple('form.commonaccess'); |
map { $commonaccess{$_} = 1; } &Apache::loncommon::get_env_multiple('form.commonaccess'); |
unless ($lock) { $lock=&Apache::lonnet::set_lock(&mt('Publishing [_1]',$fn)); } |
unless ($lock) { $lock=&Apache::lonnet::set_lock(&mt('Publishing [_1]',$fn)); } |
|
if ($lock) { |
|
¬ify_in_cleanup($r); |
|
} |
# actually publish things |
# actually publish things |
opendir(DIR,$fn); |
opendir(DIR,$fn); |
my @files=sort(readdir(DIR)); |
my @files=sort(readdir(DIR)); |
Line 2117 sub publishdirectory {
|
Line 2125 sub publishdirectory {
|
$cuid,$cgid,$crdev,$csize, |
$cuid,$cgid,$crdev,$csize, |
$catime,$cmtime,$cctime, |
$catime,$cmtime,$cctime, |
$cblksize,$cblocks)=stat($fn.'/'.$filename); |
$cblksize,$cblocks)=stat($fn.'/'.$filename); |
|
|
my $extension=''; |
my $extension=''; |
if ($filename=~/\.(\w+)$/) { $extension=$1; } |
if ($filename=~/\.(\w+)$/) { $extension=$1; } |
if ($cmode&$dirptr) { |
if ($cmode&$dirptr) { |