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

   1 CREATE OR REPLACE FUNCTION asset.acp_location_fixer()
   2 RETURNS TRIGGER AS $$
   3 DECLARE
   4     new_copy_location INT;
   5 BEGIN
   6     IF (TG_OP = 'UPDATE') THEN
   7         IF NEW.location = OLD.location AND NEW.call_number = OLD.call_number AND NEW.circ_lib = OLD.circ_lib THEN
   8             RETURN NEW;
   9         END IF;
  10     END IF;
  11     SELECT INTO new_copy_location acpl.id FROM asset.copy_location acpl JOIN actor.org_unit_ancestors_distance((SELECT owning_lib FROM asset.call_number WHERE id = NEW.call_number)) aouad ON acpl.owning_lib = aouad.id WHERE name = (SELECT name FROM asset.copy_location WHERE id = NEW.location) ORDER BY distance LIMIT 1;
  12     IF new_copy_location IS NULL THEN
  13         SELECT INTO new_copy_location acpl.id FROM asset.copy_location acpl JOIN actor.org_unit_ancestors_distance(NEW.circ_lib) aouad ON acpl.owning_lib = aouad.id WHERE name = (SELECT name FROM asset.copy_location WHERE id = NEW.location) ORDER BY distance LIMIT 1;
  14     END IF;
  15     IF new_copy_location IS NOT NULL THEN
  16         NEW.location = new_copy_location;
  17     END IF;
  18     RETURN NEW;
  19 END;
  20 $$ LANGUAGE plpgsql;
  21
  22 DROP TRIGGER IF EXISTS acp_location_fixer_trig ON asset.copy;
  23
  24 CREATE TRIGGER acp_location_fixer_trig
  25     BEFORE INSERT OR UPDATE OF location, call_number, circ_lib ON asset.copy
  26     FOR EACH ROW EXECUTE PROCEDURE asset.acp_location_fixer();
  27