Changeset 15708
- Timestamp:
- 2008-05-27T11:18:41+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/basebuildproc.pm
r15699 r15708 453 453 foreach my $field (keys %{$doc_mdprefix_fields->{$prefix}}) 454 454 { 455 push(@{$section_infodb{"metadatalist-$prefix"}}, $field); 456 455 457 my $val = $doc_mdprefix_fields->{$prefix}->{$field}; 456 457 push(@{$section_infodb{"metadatalist-$prefix"}}, $field);458 458 push(@{$section_infodb{"metadatafreq-$prefix-$field"}}, $val); 459 459 }
Note:
See TracChangeset
for help on using the changeset viewer.