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