version 1.232, 2008/03/18 23:31:31
|
version 1.233, 2008/05/12 20:59:22
|
Line 143 my $cudom;
|
Line 143 my $cudom;
|
my $registered_cleanup; |
my $registered_cleanup; |
my $modified_urls; |
my $modified_urls; |
|
|
|
my $lock; |
|
|
=pod |
=pod |
|
|
=item B<metaeval> |
=item B<metaeval> |
Line 1744 sub notify {
|
Line 1746 sub notify {
|
print $logfile "\n============ Done ============\n"; |
print $logfile "\n============ Done ============\n"; |
$logfile->close(); |
$logfile->close(); |
} |
} |
|
if ($lock) { &Apache::lonnet::remove_lock($lock); } |
return OK; |
return OK; |
} |
} |
|
|
Line 1813 sub publishdirectory {
|
Line 1816 sub publishdirectory {
|
&checkbox('obsolete','make file(s) obsolete'). |
&checkbox('obsolete','make file(s) obsolete'). |
&checkbox('forceoverride','force directory level catalog information over existing'). |
&checkbox('forceoverride','force directory level catalog information over existing'). |
'<br /><input type="submit" value="'.&mt('Publish Directory').'" /></form>'); |
'<br /><input type="submit" value="'.&mt('Publish Directory').'" /></form>'); |
|
$lock=0; |
} else { |
} else { |
|
unless ($lock) { $lock=&Apache::lonnet::set_lock('Publishing '.$fn); } |
# actually publish things |
# actually publish things |
opendir(DIR,$fn); |
opendir(DIR,$fn); |
my @files=sort(readdir(DIR)); |
my @files=sort(readdir(DIR)); |