Ejemplo 7: trigger para convertir a minúsculas

CREATE OR REPLACE FUNCTION minusculas()
RETURNS trigger AS '
foreach key $args {
    if {[info exists NEW($key)]} {
      set NEW($key) [string tolower $NEW($key)]
    }
}
return [array get NEW]
' LANGUAGE pltcl;

CREATE TRIGGER minusculizar
     BEFORE INSERT OR UPDATE ON una_tabla
     FOR EACH ROW EXECUTE PROCEDURE
     minusculas('campo_1', 'campo_2');

ejemplo honorablemente sustraído de
http://www.varlena.com/GeneralBits/47es.php