Changeset 6544

Timestamp:

Mar 7, 2006, 6:49:55 PM (20 years ago)

Author:

eugene

Message:

fixes to the detregister imageID

Location:

branches/imregister-1-1-branch/Ohana/src/imregister/detrend

Files:

• args.detregister.c (modified) (1 diff)
• imdef.c (modified) (1 diff)

branches/imregister-1-1-branch/Ohana/src/imregister/detrend/args.detregister.c

@@ -40 +40 @@
  
   /* set optional label */
-  descriptor[0].imageID = strcreate ("test");
+  descriptor[0].imageID = NULL;
   if ((N = get_argument (argc, argv, "-ID"))) {
     remove_argument (N, &argc, argv);

branches/imregister-1-1-branch/Ohana/src/imregister/detrend/imdef.c

@@ -136 +136 @@
 
   /* set the image ID (!!!!) -- this is not being done.. */
-  if (fits_scan (&header, "CRUNID",   "%s", 1, line)) {
-    descriptor[0].imageID = strcreate (line);
+  if (descriptor[0].imageID == NULL) {
+    if (fits_scan (&header, "CRUNID",   "%s", 1, line)) {
+      descriptor[0].imageID = strcreate (line);
+    }
   }
-  
+  if (descriptor[0].imageID == NULL) {
+    descriptor[0].imageID = strcreate ("test");
+  }  
   return (TRUE);
 }