version 1.231, 2008/02/14 21:29:08
|
version 1.234, 2008/05/12 23:47:49
|
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 964 sub publish {
|
Line 966 sub publish {
|
|
|
$scrout.='<h3>'.&mt('Dependencies').'</h3>'; |
$scrout.='<h3>'.&mt('Dependencies').'</h3>'; |
my $allowstr=''; |
my $allowstr=''; |
foreach (sort(keys(%allow))) { |
foreach my $thisdep (sort(keys(%allow))) { |
my $thisdep=$_; |
|
if ($thisdep !~ /[^\s]/) { next; } |
if ($thisdep !~ /[^\s]/) { next; } |
if ($thisdep =~/\$/) { |
if ($thisdep =~/\$/) { |
$scrout.='<br /><span class="LC_warning">'. |
$scrout.='<br /><span class="LC_warning">' |
&mt('The resource depends on another resource with variable filename, i.e., [_1]. '. |
.&mt('The resource depends on another resource with variable filename, i.e., [_1].','<tt>'.$thisdep.'</tt>').'<br />' |
'You likely need to explicitly allow access to all possible dependencies using the [_2]-tag', |
.&mt('You likely need to explicitly allow access to all possible dependencies using the [_1]-tag.','<tt><allow></tt>') |
'<tt>'.$thisdep.'</tt>','<tt><allow></tt>').'</span>'; |
.'</span><br />'; |
} |
} |
unless ($style eq 'rat') { |
unless ($style eq 'rat') { |
$allowstr.="\n".'<allow src="'.$thisdep.'" />'; |
$allowstr.="\n".'<allow src="'.$thisdep.'" />'; |
Line 1745 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 1814 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(&mt('Publishing [_1]',$fn)); } |
# actually publish things |
# actually publish things |
opendir(DIR,$fn); |
opendir(DIR,$fn); |
my @files=sort(readdir(DIR)); |
my @files=sort(readdir(DIR)); |