Open-ILS/src/sql/Pg/upgrade/0696.no_plperl.sql

   1 -- Evergreen DB patch 0696.no_plperl.sql
   2 --
   3 -- FIXME: insert description of change, if needed
   4 --
   5 BEGIN;
   6
   7 -- check whether patch can be applied
   8 SELECT evergreen.upgrade_deps_block_check('0696', :eg_version);
   9
  10 -- Re-create these as plperlu instead of plperl
  11 CREATE OR REPLACE FUNCTION auditor.set_audit_info(INT, INT) RETURNS VOID AS $$
  12     $_SHARED{"eg_audit_user"} = $_[0];
  13     $_SHARED{"eg_audit_ws"} = $_[1];
  14 $$ LANGUAGE plperlu;
  15
  16 CREATE OR REPLACE FUNCTION auditor.get_audit_info() RETURNS TABLE (eg_user INT, eg_ws INT) AS $$
  17     return [{eg_user => $_SHARED{"eg_audit_user"}, eg_ws => $_SHARED{"eg_audit_ws"}}];
  18 $$ LANGUAGE plperlu;
  19
  20 CREATE OR REPLACE FUNCTION auditor.clear_audit_info() RETURNS VOID AS $$
  21     delete($_SHARED{"eg_audit_user"});
  22     delete($_SHARED{"eg_audit_ws"});
  23 $$ LANGUAGE plperlu;
  24
  25 -- And remove the language so that we don't use it later.
  26 DROP LANGUAGE plperl;
  27
  28 COMMIT;