create or replace procedure testi8 is
style varchar2(8);
submit_test varchar2(400);
begin
iht2.page_start('testisivu1');
-- append javascript checks
iht2.js_checksonly;
htp.p('<body bgcolor="white">');
-- select style: promp and field in a new row
-- in 2 successive columns
style:= 'NL_COL2';
-- heading on colored background
iht2.colored_text('BLUE','GRAY','Otsikko',50,+1);
-- fields nro and pvm are defined as non-empty
submit_test:= iht2.value_required('nro'); -- first test
iht2.add_any_js(iht2.value_required('pvm'),submit_test); -- next one
-- submit_test is given as a parameter for the form tag
iht2.form_start('http://kontti.helsinki.fi:8889/ttst/owa/t8r','post',submit_test);
-- tabular layout is started
iht2.table_start;
-- numeric field
iht2.form_number_field('Numero', 'nro',6, NULL,style);
-- range field
iht2.form_range_field('Väli 10-50','vali',4,10,50,NULL,style);
-- date field
iht2.form_date_field('Päiväys (pp.kk.vvvv)','pvm','1.1.1999',style);
-- memo field
iht2.form_textarea('Selityksiä','seli',NULL,40,3,style);
-- menu with delivery values
iht2.form_menu('Valikko','val','Yksi#1,Kaksi#2,Kolme#3','3',style);
-- stop tabular layout
iht2.table_end;
htp.p('<p><hr>');
-- a row of two buttons
iht2.form_2_standard_buttons('Lähetä','Tyhjennä');
iht2.form_end;
-- print footer and end page
iht2.page_end('15.2.1999','Esimerkki: Harri Laine');
end;
/
show errors
exit