Error >>syntax error<< at >>$1<< at character 53

Hi,

I try to code a PL/pgSQL function, but always get to an execution error, I am
unable to solve:

sledger=# \i fnc_summary.pgsql
CREATE FUNCTION
COMMENT
GRANT
COMMIT
sledger=# select * from GET_SUMMARY();
ERROR: Error >>syntax error<< at >>$1<< at character 53
CONTEXT: PL/pgSQL function "get_summary" line 9 at for over select rows

The function script is as follows:

-- $Revision$
-- $Name$
-- $Date$
-- $Author$
-- $State$
-- $Locker$
-- $Source$
-- $Header$

-- Copyright (C) 2004 Thiemo Kellner

-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.

-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.

-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

-- http://www.gnu.org/licenses/gpl.html

--\set SINGLESTEP
\unset SINGLESTEP
\set AUTOCOMMIT off

-- Objekte löschen
\unset ON_ERROR_STOP
--drop function GET_SUMMARY();

-- Objekte anlegen
\set ON_ERROR_STOP
create or replace function GET_SUMMARY() returns integer as '
declare
STR_SOURCE_NAME constant pg_catalog.pg_views.viewname%type
:= \'BUCHUNGEN\';
STR_OBJEKTVIEW constant pg_catalog.pg_views.viewname%type
:= \'OBJEKTHIERARCHIE\';
R_OBJEKTHIERARCHIE record;
TXT text;
begin
for R_OBJEKTHIERARCHIE in
select
OBJEKTKATEGORIE,
OBJEKTGRUPPE,
OBJEKT
from
STR_OBJEKTVIEW
loop
COMMON.LOG_INFO(\'Objektkategorie ist\' ||
R_OBJEKTHIERARCHIE.OBJEKTKATEGORIE)
;
end loop;
TXT := \'STR_SOURCE_NAME: \' || STR_SOURCE_NAME;
perform common.log_debug(TXT);
return 0;
end;
' language plpgsql;

comment on function GET_SUMMARY() is '

';

grant execute on function GET_SUMMARY() to public;

commit;

--\i include_a_file.pgsql

-- $Log$

Does somebody have an idea how to fix the function?

Cheers

Thiemo

--
root ist die Wurzel allen bels