Changeset 15708 for gsdl

Timestamp:

2008-05-27T11:18:41+12:00 (16 years ago)

Author:

mdewsnip

Message:

Minor code rearrange.

File:

• gsdl/trunk/perllib/basebuildproc.pm (modified) (1 diff)

gsdl/trunk/perllib/basebuildproc.pm

@@ -453 +453 @@
         foreach my $field (keys %{$doc_mdprefix_fields->{$prefix}})
         {
+            push(@{$section_infodb{"metadatalist-$prefix"}}, $field);
+
             my $val = $doc_mdprefix_fields->{$prefix}->{$field};
-
-            push(@{$section_infodb{"metadatalist-$prefix"}}, $field);
             push(@{$section_infodb{"metadatafreq-$prefix-$field"}}, $val);
         }