PRO eis_rebuild_raster_db


;replace call to astrolib
defsysv,'!DEBUG', 0
defsysv,'!TEXTUNIT', 0
defsysv,'!PRIV', 2
defsysv,'!TEXTOUT', EXIST = EXIST

status = eis_open_db(/RASTER)
items  = db_info('entries')
print,STRJOIN(['number of items = ',STRCOMPRESS(items[0])],/SINGLE)
item_array = REPLICATE({eis_raster},items[0]+1)
;sc_array = REPLICATE(0,items[0]+1)

FOR i = 1, items[0]    DO BEGIN
;FOR i = 1, 9    DO BEGIN

    index   = STRCOMPRESS(i,/REMOVE_ALL)
    percent = STRCOMPRESS( (i/FLOAT(items[0]))*100. ,/REMOVE_ALL)
    print,STRJOIN(['Item: ',index,'  ',percent,'%  done.'],/SINGLE)
    item_array[i] = db_read_raster_entry(i)

    ; Get uncompressed data volume
    ra_vol = eis_raster_volume(item_array[i])
    ; Get raster duration
    ll     = db_read_linelist_entry(item_array[i].ll_id)
    ra_dur = eis_raster_duration(item_array[i],ll)

    ; Update values
    item_array[i].volume   = ra_vol
    item_array[i].duration = ra_dur

ENDFOR

print,"time to re-build the RASTER DB?"
print,"Don't forget to modify the eis_raster dbd files'

stop
;
; OK, got all the time_component entries
;
CD    , '$HOME/planning_db/technical_db'
SPAWN , "rm eis_raster_db.dbf  eis_raster_db.dbh  eis_raster_db.dbx"
dbcreate , 'eis_raster_db'  , 1 , 1 , 500000 , /EXTERNAL


FOR i = 1, items[0]   DO BEGIN

    index   = STRCOMPRESS(i,/REMOVE_ALL)
    percent = STRCOMPRESS( (i/FLOAT(items[0]))*100. ,/REMOVE_ALL)
    print,STRJOIN(['Item: ',index,'  ',percent,'%  done.'],/SINGLE)
    db_save_raster_entry_create , item_array[i]

ENDFOR
stop

END