Open-ILS/src/sql/Pg/upgrade/0092.schema.action_trigger.event.user_data.sql

   1 BEGIN;
   2
   3 INSERT INTO config.upgrade_log (version) VALUES ('0092'); -- miker
   4
   5 CREATE OR REPLACE FUNCTION is_json (TEXT) RETURNS BOOL AS $func$
   6     use JSON::XS;
   7     my $json = shift();
   8     eval { decode_json( $json ) };
   9     return $@ ? 0 : 1;
  10 $func$ LANGUAGE PLPERLU;
  11
  12 ALTER TABLE action_trigger.event ADD COLUMN user_data TEXT CHECK (user_data IS NULL OR is_json( user_data ));
  13
  14 COMMIT;
  15