;Prepare a html table for the description of db columns

function col_band, tag_name

split = strsplit(tag_name, '_', /extract)
return, strlowcase(split[n_elements(split)-1])
end

zphot_dir = '/data1/libertyscratch/sebastien/GR2_fits_cats/zphot/MIS/'
fits_cat  = zphot_dir+'MISDR2_30904_0378_126_0_zphot.fits'
out_file   = '/home/sebastien/xmosaic/zphot_web/db_desc.txt'

cat  = mrdfits(fits_cat,1, hdr)
tags = tag_names(cat)

openw, 44, out_file
printf, 44, '<table border="1">'
printf, 44, '<tr align = "center"> <th> Column name <th> Description </th> </tr>'
count = 0
for icol = 0, n_elements(tags)-1 do begin
    if(strmatch(tags[icol], 'Z_BEST_POLYFIT') eq 0) then begin
        if(count mod 2 eq 0) then bgcolor = ''
        if(count mod 2 eq 1) then bgcolor = 'bgcolor="#E8E8E8"'
        line_begin = '<tr align = "center" '+bgcolor+'> <td> '
        if(strmatch(tags[icol], 'K_COR*') eq 1 $
           and strmatch(tags[icol], '*QSO*') eq 0) then begin
            desc = col_band(tags[icol])+ ' kcorrection'
        endif else if (strmatch(tags[icol], 'K_COR*') eq 1 $
           and strmatch(tags[icol], '*QSO*') eq 1) then begin
            desc = col_band(tags[icol])+ ' kcorrection using qso template'
        endif else if(strmatch(tags[icol], 'MAG_ABS*') eq 1 $
           and strmatch(tags[icol], '*QSO*') eq 0) then begin
            desc = col_band(tags[icol])+ ' absolute magnitude'
        endif else if (strmatch(tags[icol], 'MAG_ABS*') eq 1 $
           and strmatch(tags[icol], '*QSO*') eq 1) then begin
            desc = col_band(tags[icol])+ $
              '  absolute magnitude using qso template'
        endif else begin
            desc = 'tamere'
        endelse

        line_out = line_begin+strlowcase(tags[icol])+'</td> <td> '+desc +$
          ' </td></tr>'
        printf, 44, line_out
        count++
    endif
endfor
printf, 44, "</table>"
close, 44



END