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

   1
   2 -- Re-create these as plperlu instead of plperl
   3 CREATE OR REPLACE FUNCTION auditor.set_audit_info(INT, INT) RETURNS VOID AS $$
   4     $_SHARED{"eg_audit_user"} = $_[0];
   5     $_SHARED{"eg_audit_ws"} = $_[1];
   6 $$ LANGUAGE plperlu;
   7
   8 CREATE OR REPLACE FUNCTION auditor.get_audit_info() RETURNS TABLE (eg_user INT, eg_ws INT) AS $$
   9     return [{eg_user => $_SHARED{"eg_audit_user"}, eg_ws => $_SHARED{"eg_audit_ws"}}];
  10 $$ LANGUAGE plperlu;
  11
  12 CREATE OR REPLACE FUNCTION auditor.clear_audit_info() RETURNS VOID AS $$
  13     delete($_SHARED{"eg_audit_user"});
  14     delete($_SHARED{"eg_audit_ws"});
  15 $$ LANGUAGE plperlu;
  16
  17 DROP LANGUAGE plperl;