| ' || cprompt ||' | ');
htp.formText(cname, csize, cmaxlength, cvalue);
end;
procedure formStandardButtons2(csubmit varchar2, creset varchar2) is
begin
htp.formReset(creset);
htp.formSubmit(NULL,csubmit);
end;
procedure formButtonRowOpen is
begin
htp.p('');
end;
procedure formButtonRowItem(ctype varchar2, cname varchar2, cvalue varchar2) is
begin
htp.p('| ');
if ctype='SUBMIT' or ctype='submit' then
htp.formSubmit(cname,cvalue);
else
htp.formReset(cvalue);
end if;
end;
procedure formButtonRowClose is
begin
htp.p(' |
');
end;
procedure formStandardButtons4 is
begin
formButtonRowOpen;
formButtonRowItem('RESET',NULL,'Alkuarvot');
formButtonRowItem('SUBMIT','optype','Päivitä');
formButtonRowItem('SUBMIT','optype','Uusi tietue');
formButtonRowItem('SUBMIT','optype','Poista');
formButtonRowClose;
end;
procedure formFieldText(cprompt varchar2, cname varchar2,
cvalue varchar2, nrows int := 3, ncols int := 40) is
begin
htp.p(' |
|---|
| ' || cprompt ||' | ');
htp.formTextareaOpen(cname,nrows,ncols);
htp.p(cvalue);
htp.formTextareaClose;
end;
procedure header(ctitle varchar2, cinst_url varchar2, cbgr varchar2) is
begin
htp.p('');
htp.title(ctitle);
htp.bodyOpen(cbgr, 'bgcolor=white');
htp.p('');
htp.p('');
htp.p('');
htp.p('Helsingin yliopisto, Tietojenkäsittelytieteen laitos
');
htp.p('Informaatiojärjestelmien harjoitustyö');
htp.p(' | ');
htp.p('');
htp.p('');
htp.p(' ');
htp.p(' | ');
htp.p('| ');
htp.p(' | ');
htp.p('
');
htp.header(2,ctitle);
end;
procedure shortMessage(cmsg varchar2) is
begin
htp.p(' ');
htp.p(cmsg);
htp.p(' ');
end;
end;
/
show errors
exit
|
|---|