Re: help with TCL function

jules.alberts@arbodienst-limburg.nl wrote:
> Op 10 Sep 2003 (15:27), schreef Jules Alberts <jules.alberts@arbodienst-limburg.nl>:
>> Hello everybody,
>>
>> Someone helped me earlier with this TCL trigger function:
>>
>> create or replace function tlow() returns trigger as '
>>   set NEW($1) [string tolower $NEW($1)]
>>   return [array get NEW]'
>> language 'pltcl';
>>
>> I use it to force lowercase of values inserted in the db. There is one
>> problem though, if the parameter is absent, the function will give an
>> error message. I would like it to rather check for null before tolower
>> is applicated. In semicode:
>>
>> if ($1 <> NULL) {
>>  set NEW($1) [string tolower $NEW($1)]
>> }
>> return [array get NEW]'
>>
>> but I have no idea how to do this in TCL. Can somebody please tell me?
>> Thanks a lot!
>
> I found argisnull, but I can't run it, apparently it cannot be used in
> triggers :-( Does anybody know a solutions for this problem? Thanks!

I think you're missing something. When you use a Tcl function as a trigger,
any arguments (like $1) are explicitly supplied in the CREATE TRIGGER
command. You either define the trigger to call the function with a
constant argument or not; there is no issue of NULL here or an optional
argument. Show us your CREATE TRIGGER command.