Postgres で perl の join() のようなストアド

perl の join() のような処理をしてくれるストアドプロシージャを PL/PGSQL で作ってみた。ただ、カラム名をハードコーディングしなければならず、あまり使い勝手が良くない。ということで、以下のような質問を投げてみた。

PostgreSQL 2テーブル目
http://pc2.2ch.net/test/read.cgi/php/1047317680/56

PL/PGSQL で Perl の join 関数みたいなストアドを作りたいんだけど、
なんかもっとスマートな方法無いでしょうか?
結果レコードのカラム名を変数で指定できると嬉しいんだけど、
Postgres 7.2.1 では変数展開してくれませんでした。

-- SQL の結果レコードに指定した文字列を挟んで連結して返す
-- 引数1: 実行する SQL 文
-- 引数2: 挟み込む文字列
DROP FUNCTION join_str(TEXT, TEXT);
CREATE FUNCTION join_str(TEXT, TEXT) RETURNS TEXT AS '
  declare
    delimiter alias for $1;
    sql alias for $2;
    str text;
    rec record;
    is_first bool;
  begin
    is_first = true;
    str := '''';
    FOR rec IN EXECUTE sql LOOP
      IF is_first THEN
        str := rec.serialnum;  -- カラム名を指定
        is_first := false;
      ELSE
        str := str || delimiter || rec.serialnum; -- カラム名を指定
      END IF;
    END LOOP;
    return str;
  end;
' LANGUAGE 'plpgsql';