-- Функция генерирования HTML-контрола <select>. Описание параметров в секции declare.
-- Создано: Транстелеком-ДВ, 2007 г.

CREATE OR REPLACE FUNCTION html_select(ct_name character varying, dt_name character varying, value_col character varying, text_col character varying, selected character varying)
  RETURNS character varying AS
$BODY$
declare
-- ct_name-имя компонента <select>, dt_name-имя таблицы из которой берутся данные
-- value_col-столбец со значениями value, text_col-столбец со значениями текста
-- selected-значение, выбираемое по умолчанию.
res character varying;
sel character varying;
vn record;

begin
res:='<select name='''||ct_name||'''>';

-- При использовании просто FOR IN vn SELECT 'select name_col from tablename' вываливает ошибку.
-- Видимо не может использовать пререданные в функцию перменные как имена полей
FOR vn IN execute 'select "'||value_col||'" as val, "'||text_col||'" as text from '||dt_name LOOP
  if vn.val=selected then sel='selected'; else sel=''; end if;
  res:=res||'<option value='''||vn.val||''' '||sel||'>'||vn.text||'</option>';
END LOOP;

res:=res||'</select>';
return res;
end;
$BODY$ LANGUAGE 'plpgsql' VOLATILE;