Re: What's wrong in this pltcl function ?

On Mon, 14 Oct 2002, Constantin Teodorescu wrote:

> create function ruldeb(bpchar) returns bpchar as '
>     set cont $1
>     set rulaj 0.0
>     spi_exec -array rec "select valoare from valori where debitor LIKE 
> \'$cont%\'" {
>         set rulaj [expr {$rulaj + $rec(valoare)}]
>     }
>     if {![info exists GD(conturi_lookup)]} {
>         set GD(conturi_lookup) [spi_prepare "select cheie,denumire from 
> conturi where id=\'\\$1\'" [list bpchar]]
>     }
>     spi_execp -count 1 $GD(conturi_lookup) [list $cont]
>     return "{$cheie} {$denumire} $rulaj"
> ' LANGUAGE 'pltcl';
> 
> 
> is giving the following error:
> 
> ERROR:  pltcl: can't read "cheie": no such variable
> can't read "cheie": no such variable
>     while executing
> "return "{$cheie} {$denumire} $rulaj""
>     (procedure "__PLTcl_proc_1759991" line 12)
>     invoked from within
> "__PLTcl_proc_1759991 4:0:1:1:2:"


Looks like your prepared query is not finding any matching tuples.

If a query returns 0 tuples then all column variables will be undefined.
Undefined because if you set them before then they will not be unset. This
differs from the case where a tuple has been returned by the query but a
column's value is NULL. In this case the TCL variable is unset.


-- 
Nigel J. Andrews