Элегантное решение PL/SQL для пользовательского ввода HTML ⇐ Html

[Anonymous]

У меня есть веб-форма, которая способна отображать некоторые данные пользователям и считывать введенные пользователем данные обратно в базу данных. Однако для работы мне нужна масса параметров, и по мере роста проекта я хотел бы модульно структурировать его и переносить между процедурами меньше параметров. ChatGPT сказал мне, что переменные контекста были бы хороши, и я мог бы прочитать их через owa_utils. Однако мне это не удалось. Есть ли у вас какое-либо решение, которое позволило бы мне модульно структурировать и очистить мой код?
Ниже приведен небольшой пример того, что я сейчас делаю.

procedure test_page(

p_choice in VARCHAR2 default null
, p_user_name in VARCHAR2 default null
, a_id in T_ARR default cast(null as T_ARR)
, a_colour in T_ARR default cast(null as T_ARR)
, a_rating in T_ARR default cast(null as T_ARR)
)
as
refcur SYS_REFCURSOR;
g_page_link VARCHAR2(4000) default 'my_site/my_schema/my_package';
l_strsql VARCHAR2(4000);
l_cnt INT;
cur_id VARCHAR2(30);
cur_colour VARCHAR2(300);
begin
htp.htmlopen;
htp.headopen;
htp.title('Test page');
htp.headclose;
htp.bodyopen;

htp.print('Test page');

if p_choice is null
then
htp.print('');
htp.print('');
htp.print('');
htp.print(' Filter');
htp.print(' User' ||
' ' ||
'Peter' ||
'Tom' ||
'');
htp.print(' Use Filter ');
htp.print('');
htp.print('');
htp.print('');
end if;

if p_choice = 'rate'
then
htp.print('');
htp.print('');
htp.print('');
htp.print('Colour');
htp.print('Rating');
htp.print('');
l_strsql :=
'
select 1 as id, ''blue'' as colour from dual
union all
select 2 as id, ''red'' as colour from dual
union all
select 3 as id, ''green'' as colour from dual';
l_cnt := 0;
open refcur for l_strsql;
loop
fetch refcur into
cur_id,
cur_colour;

exit when refcur%notfound or l_cnt >= 1000;
l_cnt := l_cnt + 1;

htp.print('');
htp.print('');
htp.print('' ||
'' || cur_colour || '' ||
'' ||
''
);
end loop;
close refcur;
htp.print('');
htp.print('
Rate now
');
htp.print('');
end if;

if p_choice = 'done'
then
htp.print('');
htp.print('');
htp.print('');
htp.print(' Result');
htp.print(' User ' || p_user_name || '   ');

for i in a_id.first .. a_id.last
loop
htp.print(' ' || a_id(i) || '' || a_colour(i) || ' ' || a_rating(i) || ' ');
end loop;
htp.print(' Finish rating ');
htp.print('');
htp.print('');
htp.print('');
end if;

htp.bodyclose;
htp.htmlclose;
exception
when others then
htp.print('Error');
htp.print('
' || sqlerrm || '
');
end;


Подробнее здесь: https://stackoverflow.com/questions/798 ... user-input