PRO eis_rebuild_science_db


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

status = eis_open_db(/SCIENCE)
items  = db_info('entries')
print,STRJOIN(['number of items = ',STRCOMPRESS(items[0])],/SINGLE)
sc_array = REPLICATE({eis_science_component},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)
    sc_array[i] = eis_get_science_entry(i)

ENDFOR

print,"time to re-build timeline DB?"
print,"Don't forget to modify the eis_science_db.dbd file'

stop
;
; OK, got all the time_component entries
;
CD    , '$HOME/planning_db/timeline_db'
SPAWN , "rm eis_science_db.dbf  eis_science_db.dbh  eis_science_db.dbx"
SPAWN , "rm eis_science2_db.dbf eis_science2_db.dbh eis_science2_db.dbx"
dbcreate , 'eis_science_db'  , 1 , 1 , 500000 , /EXTERNAL
dbcreate , 'eis_science2_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)
    status = eis_open_db(/SCIENCE, /UPDATE)
    r = eis_write_science_component_database_table(sc_array[i])

ENDFOR
stop

END