loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.32, 2001/08/07 12:07:39	version 1.33, 2001/08/07 21:27:06
Line 340 sub publish {	Line 340 sub publish {
my $chparms='';	my $chparms='';
map {	map {
if (($_=~/^parameter/) \|\| ($_=~/^stores/)) {	if (($_=~/^parameter/) \|\| ($_=~/^stores/)) {
unless (($metadatafields{$_.'.name'}) \|\| ($_=~/\.\w+$/)) {	unless (($metadatafields{$_.'.name'}) \|\|
	($metadatafields{$_.'.package'}) \|\| ($_=~/\.\w+$/)) {
print $logfile 'Obsolete: '.$_."\n";	print $logfile 'Obsolete: '.$_."\n";
$chparms.=$_.' ';	$chparms.=$_.' ';
}	}