loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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));