Changeset 12706

Timestamp:

Mar 30, 2007, 6:18:04 PM (19 years ago)

Author:

magnier

Message:

making output header conform to format

File:

• trunk/psModules/src/objects/pmSourceIO.c (modified) (2 diffs)

trunk/psModules/src/objects/pmSourceIO.c

@@ -3 +3 @@
  *  @author EAM, IfA
  *
- *  @version $Revision: 1.32 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2007-03-31 03:01:34 $
+ *  @version $Revision: 1.33 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2007-03-31 04:18:04 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -273 +273 @@
                 psMetadataCopy (outhead, phu->header);
             } else {
-                psMetadata *fileMD = psMetadataLookupMetadata (NULL, file->format, "FILE");
-                psMetadataCopy (outhead, fileMD);
+                pmConfigConformHeader (outhead, file->format);
+
+                psMetadata *fileData = psMetadataLookupMetadata(NULL, file->format, "FILE"); // File information
+                const char *fpaNameHdr = psMetadataLookupStr(NULL, fileData, "FPA.NAME");
+                if (fpaNameHdr && strlen(fpaNameHdr) > 0) {
+                    const char *fpaName = psMetadataLookupStr(NULL, file->fpa->concepts, "FPA.NAME");
+                    psMetadataAddStr(outhead, PS_LIST_TAIL, fpaNameHdr, PS_META_REPLACE, "FPA name", fpaName);
+                }
             }