Changeset 13492


Ignore:
Timestamp:
2006-12-12T11:13:45+13:00 (17 years ago)
Author:
kjdon
Message:

sort the metadata fields before putting in a table

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/metadatautil.pm

    r13418 r13492  
    8989    my $text = "<table cellpadding=\"4\" cellspacing=\"0\">\n";
    9090   
    91     foreach my $field (keys(%$metadata)) {
     91    foreach my $field (sort keys(%$metadata)) {
    9292    # $metadata->{$field} may be an array reference
    9393    if ($field eq "gsdlassocfile_tobe") {
Note: See TracChangeset for help on using the changeset viewer.