loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.160, 2004/01/04 00:28:22	version 1.162, 2004/01/20 22:52:17
Line 204 sub metaeval {	Line 204 sub metaeval {
if ($newentry !~m\|^/res\|) { $newentry=$prefix.$newentry; }	if ($newentry !~m\|^/res\|) { $newentry=$prefix.$newentry; }
}	}
# actually store	# actually store
$metadatafields{$unikey}=$newentry;	if ( $entry eq 'rule' && exists($metadatafields{$unikey})) {
	$metadatafields{$unikey}.=','.$newentry;
	} else {
	$metadatafields{$unikey}=$newentry;
	}
}	}
}	}
}	}
Line 1017 sub publish {	Line 1021 sub publish {
}	}

} else {	} else {
# ------------------------------------------ See if anything new in file itself

$allmeta=&parseformeta($source,$style);
# ---------------------- Read previous metafile, remember parameters and stores	# ---------------------- Read previous metafile, remember parameters and stores

$scrout.=&metaread($logfile,$source.'.meta');	$scrout.=&metaread($logfile,$source.'.meta');
Line 1030 sub publish {	Line 1031 sub publish {
delete $metadatafields{$_};	delete $metadatafields{$_};
}	}
}	}
	# ------------------------------------------ See if anything new in file itself

	$allmeta=&parseformeta($source,$style);

}	}