Re: help with TCL function

Am Donnerstag, 11. September 2003 08:59 schrieben Sie:
> Op 11 Sep 2003 (0:45), schreef ljb <lbayuk@mindspring.com>:
...
> -- This is the function
>
> create or replace function tlow() returns trigger as '
>   set NEW($1) [string tolower $NEW($1)]
>   return [array get NEW]'
> language 'pltcl';
>
...

You could either test with info exists or catch the error
create or replace function tlow() returns trigger as '
  if [info exists NEW($1)] {
    set NEW($1) [string tolower $NEW($1)]
  }
  return [array get NEW]'
language 'pltcl';

create or replace function tlow() returns trigger as '
  catch {
    set NEW($1) [string tolower $NEW($1)]
  }
  return [array get NEW]'
language 'pltcl';

--
Rolf Jentsch
Produktentwicklung EDV-Anwendungen für Mitglieder
ElectronicPartner GmbH & Co. KG
Düsseldorf