sql/ils_specific/horizon/horizon.sql

   1 -- Copyright 2009-2012, Equinox Software, Inc.
   2 --
   3 -- This program is free software; you can redistribute it and/or
   4 -- modify it under the terms of the GNU General Public License
   5 -- as published by the Free Software Foundation; either version 2
   6 -- of the License, or (at your option) any later version.
   7 --
   8 -- This program is distributed in the hope that it will be useful,
   9 -- but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 -- GNU General Public License for more details.
  12 --
  13 -- You should have received a copy of the GNU General Public License
  14 -- along with this program; if not, write to the Free Software
  15 -- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
  16
  17 CREATE OR REPLACE FUNCTION migration_tools.attempt_hz_date (TEXT,TEXT) RETURNS DATE AS $$
  18     DECLARE
  19         attempt_value ALIAS FOR $1;
  20         fail_value ALIAS FOR $2;
  21         output DATE;
  22     BEGIN
  23         FOR output IN
  24             EXECUTE E'SELECT (\'1970-01-01\'::date + \'' || attempt_value || E' days\'::interval)::date AS a;'
  25         LOOP
  26             RETURN output;
  27         END LOOP;
  28     EXCEPTION
  29         WHEN OTHERS THEN
  30             FOR output IN
  31                 EXECUTE 'SELECT ' || quote_literal(fail_value) || '::date AS a;'
  32             LOOP
  33                 RETURN output;
  34             END LOOP;
  35     END;
  36 $$ LANGUAGE PLPGSQL STRICT STABLE;
  37