Return to lonpublisher.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
version 1.161, 2004/01/05 22:29:51 | 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; | |
} | |
} | } |
} | } |
} | } |