; ------------------------------------------------------------
function select_menu, menu, item
;
; "set" selected item in a FORMs pulldown menu
omenu=menu
keyword=''
select=' '
iitem=strcapitalize(strtrim(item,2))
imenu=strcapitalize(strtrim(strmid(menu,8,80),2))
ss=where(iitem eq imenu ,sscnt)
if sscnt gt 0 then omenu(ss(0))=str_replace(omenu(ss(0)),keyword,select)
return,omenu
end
; ------------------------------------------------------------
function mk_formt_html, start_select, stop_select, $
varname=varname, outfile=outfile, title=title, action=action, himg=himg, $
notime=notime, nostop=nostop, t0=t0, t1=t1, timerange=timerange
;+
; Name: mk_formt_html
;
; Purpose: make FORM-ready html segment for times (start [and stop])
;
; Input Paramters:
; start_select - set default start time
; stop_select - set default stop time
;
; Calling Sequence:
; outarray=mk_formt_html(start_select [,stop_select], t0=tim0, t1=tim1)
;-
; form generic string menus for dates
mins=string(lindgen(6)*10,format='(i2.2)')
hours=string(indgen(24),format='(i2.2)')
days=string(indgen(31)+1,format='(i2)')
months=strcapitalize(strmid(timegrid('1-jan','30-dec',day=32,/string),3,3))
today=ut_time()
if n_elements(timerange) eq 2 then begin
t0=timerange(0)
t1=timerange(1)
endif
if n_elements(t0) eq 0 then t0=fmt_tim('1-jan-90') else t0=fmt_tim(t0)
if n_elements(t1) eq 0 then t1=fmt_tim('31-dec-99') else t1=fmt_tim(t1)
yr1=long(strmid(t0,7,2))
yr2=long(strmid(t1,7,2))
years=string(lindgen(yr2-yr1+1)+yr1 + 1900,format='(i4.4)')
; ------------- if title supplied, include FORM header and setup HTML
if keyword_set(title) then begin
header=['','','' + title,'</head>','<body>']
if data_chk(himg,/string) then header=[header, $
'IMG SRC="'+himg+'">']
header=[header,'<h1>'+title+'</h1>','<hr>']
if data_chk(action,/string) then header=[header, $
'<FORM METHOD="POST" ACTION="' + action + '">']
endif else header=''
; ---------------------------------------------------------------------
if n_elements(start_select) eq 0 then start_select=t0 else $
start_select=fmt_tim(start_select)
if n_elements(stop_select) eq 0 then stop_select=t1 else $
stop_select=fmt_tim(stop_select)
; ------- start day menu ------------
mmin='<OPTION> ' + mins
mhour='<OPTION> ' + hours
mdays='<OPTION> ' + days
mmonths='<OPTION> ' + months
myears='<OPTION> ' + years
startarr=str2arr(start_select,'-')
sdays=select_menu(mdays,startarr(0))
smonths=select_menu(mmonths,startarr(1))
syears=select_menu(myears,string((fix((str2arr(startarr(2),' '))(0))) mod 1900)+1900)
; ------------------------------------
; ------- stop day menu ----------------
endarr=str2arr(stop_select,'-')
edays=select_menu(mdays,endarr(0))
emonths=select_menu(mmonths,endarr(1))
eyears=select_menu(myears,string((fix((str2arr(endarr(2),' '))(0))) mod 1900)+1900)
; ---------------------------------------
thead=(["Time:",""])(keyword_set(nohead))
dhead=(["Date:",""])(keyword_set(nohead))
start_menu=[dhead, $
'<SELECT NAME="start_day">',sdays,'</SELECT>', $
'<SELECT NAME="start_month">',smonths,'</SELECT>', $
'<SELECT NAME="start_year">',syears,'</SELECT>']
if not keyword_set(notime) then start_menu= $
[thead, $
'<SELECT NAME="start_hour">',mhour,'</SELECT>','<b>:</b>', $
'<SELECT NAME="start_min">',mmin,'</SELECT>', start_menu]
if data_chk(varname,/string) then $
start_menu=str_replace(start_menu,"start_",varname+"_")
stop_menu =[dhead, $
'<SELECT NAME="stop_day">',edays,'</SELECT>', $
'<SELECT NAME="stop_month">',emonths,'</SELECT>', $
'<SELECT NAME="stop_year">',eyears,'</SELECT>']
if not keyword_set(notime) then stop_menu= [thead, $
'<SELECT NAME="stop_hour">',mhour,'</SELECT>','<b>:</b>', $
'<SELECT NAME="stop_min">',mmin,'</SELECT>', stop_menu]
nostop=keyword_set(nostop) or keyword_set(varname)
if n_elements(varname) eq 0 then varname="Start"
body=[strcapitalize(varname),start_menu]
if not keyword_set(nostop) then body=[body, "<p>Stop",stop_menu]
retval=[header,body]
return, retval
end