Changeset 29476
- Timestamp:
- 2014-11-28T17:09:12+13:00 (9 years ago)
- Location:
- main/trunk/greenstone2/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/AZCompactList.pm
r28564 r29476 332 332 my $metavalue = $mvp->{'mv'}; 333 333 $metavalue =~ s!^-!\\-!; # in case it starts with "-" 334 my $cs_metavalue = $mvp->{'mv'}; # case sens ative334 my $cs_metavalue = $mvp->{'mv'}; # case sensitive 335 335 if ($mtfreq{$metavalue} >= $self->{'mingroup'}) 336 336 { … … 377 377 $metaname = join('/',@metaname_list); 378 378 } 379 foreach $metavalue ( keys %mtfreq)379 foreach $metavalue (sort keys %mtfreq) 380 380 { 381 381 if ($mtfreq{$metavalue} >= $mingroup) -
main/trunk/greenstone2/perllib/plugins/MARCPlugin.pm
r28783 r29476 346 346 my $metadata_mapping = $self->{'metadata_mapping'};; 347 347 348 foreach my $marc_field ( keys %$metadata_mapping )348 foreach my $marc_field ( sort keys %$metadata_mapping ) 349 349 { 350 350 my $gsdl_field = $metadata_mapping->{$marc_field};
Note:
See TracChangeset
for help on using the changeset viewer.