; Select_proj
;
; select a project for assignment,
;   eventually make a backup of the databases
;   binds to the databases
;   builds the list of spectra.
;

dialogbox "Select project" \
   "Select the project directory" file proj $home \
   separator \
   "Data-Bases Backup option" enum "create backup,recover from previous bck,no action" bck % \
   * 

if (dbm("sys")) dbclose sys
if (dbm("att")) dbclose att

cd $proj

if ($bck s= "create backup") then
    sh "mv backup.tar backup.tar.old; cd db; tar cvf ../backup.tar *"
elsif ($bck s= "recover from previous bck") then
    sh "cd db; tar xvf ../backup.tar"
endif

@build_spec

@./parameters

dbopen db/spin_syst sys
dbopen db/spin spin
dialogbox project \
  '--------- in data base : ---------' message \
  ($spin['largest']; 'spins') message \
  ($sys['largest']; 'spin-systems') message \
  *
; then load a data-set
@read_file
@multi_zoom

