loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.145, 2003/11/08 11:20:22	version 1.145.2.1, 2004/01/20 23:02:20
Line 219 sub metaeval {	Line 219 sub metaeval {
$newentry=~s/^\s*//;	$newentry=~s/^\s*//;
if ($newentry !~m\|^/res\|) { $newentry=$prefix.$newentry; }	if ($newentry !~m\|^/res\|) { $newentry=$prefix.$newentry; }
}	}
unless ($metadatafields{$unikey}=~/\w/) {	# actually store
	if ( $entry eq 'rule' && exists($metadatafields{$unikey})) {
	$metadatafields{$unikey}.=','.$newentry;
	} else {
$metadatafields{$unikey}=$newentry;	$metadatafields{$unikey}=$newentry;
}	}
}	}