Changeset 4864 for trunk/Ohana/src/delstar/src/delete_imagefile.c

Timestamp:

Aug 23, 2005, 8:55:22 PM (21 years ago)

Author:

eugene

Message:

converted to the libohana/dvo_image I/O routines; improvements in fits_db.c

File:

• trunk/Ohana/src/delstar/src/delete_imagefile.c (modified) (3 diffs)

trunk/Ohana/src/delstar/src/delete_imagefile.c

@@ -1 +1 @@
 # include "delstar.h"
 
-void delete_imagefile (char *filename) {
+void delete_imagefile (FITS_DB *db, char *filename) {
 
-  int i, j;
-  int Nregions, Nimlist;
+  int i, Nregions, Nimlist;
   int *imlist;
   double trange;
@@ -41 +40 @@
     start = image[0].tzero;
     stop  = image[0].tzero + trange;
-    find_matches (&catalog, image[j].source, start, stop);
+    find_matches (&catalog, image[0].source, start, stop);
     wcatalog (&catalog);
     unlock_catalog (&catalog);
@@ -47 +46 @@
 
   /* find and delete matching images */
-  imlist = find_images_data (image, &Nimlist);
+  imlist = find_images_data (db, image, &Nimlist);
   if (!Nimlist) Shutdown ("image %s not found in db", filename);
 
-  dimages (imlist, Nimlist); 
+  fits_vtable_from_ftable (&db[0].ftable, &db[0].vtable, imlist, Nimlist);
+  dvo_image_update (db, VERBOSE);
+  unlock_image_db (db);
 
-  save_image_db ();
-  unlock_image_db ();
   fprintf (stderr, "SUCCESS\n");
   exit (0);