Open-ILS/src/sql/Pg/upgrade/0770.function.allow_inactive_barcode_retrieve.sql

   1 BEGIN;
   2
   3 SELECT evergreen.upgrade_deps_block_check('0770', :eg_version);
   4
   5 CREATE OR REPLACE FUNCTION evergreen.get_barcodes(select_ou INT, type TEXT, in_barcode TEXT) RETURNS SETOF evergreen.barcode_set AS $$
   6 DECLARE
   7     cur_barcode TEXT;
   8     barcode_len INT;
   9     completion_len  INT;
  10     asset_barcodes  TEXT[];
  11     actor_barcodes  TEXT[];
  12     do_asset    BOOL = false;
  13     do_serial   BOOL = false;
  14     do_booking  BOOL = false;
  15     do_actor    BOOL = false;
  16     completion_set  config.barcode_completion%ROWTYPE;
  17 BEGIN
  18
  19     IF position('asset' in type) > 0 THEN
  20         do_asset = true;
  21     END IF;
  22     IF position('serial' in type) > 0 THEN
  23         do_serial = true;
  24     END IF;
  25     IF position('booking' in type) > 0 THEN
  26         do_booking = true;
  27     END IF;
  28     IF do_asset OR do_serial OR do_booking THEN
  29         asset_barcodes = asset_barcodes || in_barcode;
  30     END IF;
  31     IF position('actor' in type) > 0 THEN
  32         do_actor = true;
  33         actor_barcodes = actor_barcodes || in_barcode;
  34     END IF;
  35
  36     barcode_len := length(in_barcode);
  37
  38     FOR completion_set IN
  39       SELECT * FROM config.barcode_completion
  40         WHERE active
  41         AND org_unit IN (SELECT aou.id FROM actor.org_unit_ancestors(select_ou) aou)
  42         LOOP
  43         IF completion_set.prefix IS NULL THEN
  44             completion_set.prefix := '';
  45         END IF;
  46         IF completion_set.suffix IS NULL THEN
  47             completion_set.suffix := '';
  48         END IF;
  49         IF completion_set.length = 0 OR completion_set.padding IS NULL OR length(completion_set.padding) = 0 THEN
  50             cur_barcode = completion_set.prefix || in_barcode || completion_set.suffix;
  51         ELSE
  52             completion_len = completion_set.length - length(completion_set.prefix) - length(completion_set.suffix);
  53             IF completion_len >= barcode_len THEN
  54                 IF completion_set.padding_end THEN
  55                     cur_barcode = rpad(in_barcode, completion_len, completion_set.padding);
  56                 ELSE
  57                     cur_barcode = lpad(in_barcode, completion_len, completion_set.padding);
  58                 END IF;
  59                 cur_barcode = completion_set.prefix || cur_barcode || completion_set.suffix;
  60             END IF;
  61         END IF;
  62         IF completion_set.actor THEN
  63             actor_barcodes = actor_barcodes || cur_barcode;
  64         END IF;
  65         IF completion_set.asset THEN
  66             asset_barcodes = asset_barcodes || cur_barcode;
  67         END IF;
  68     END LOOP;
  69
  70     IF do_asset AND do_serial THEN
  71         RETURN QUERY SELECT 'asset'::TEXT, id, barcode FROM ONLY asset.copy WHERE barcode = ANY(asset_barcodes) AND deleted = false;
  72         RETURN QUERY SELECT 'serial'::TEXT, id, barcode FROM serial.unit WHERE barcode = ANY(asset_barcodes) AND deleted = false;
  73     ELSIF do_asset THEN
  74         RETURN QUERY SELECT 'asset'::TEXT, id, barcode FROM asset.copy WHERE barcode = ANY(asset_barcodes) AND deleted = false;
  75     ELSIF do_serial THEN
  76         RETURN QUERY SELECT 'serial'::TEXT, id, barcode FROM serial.unit WHERE barcode = ANY(asset_barcodes) AND deleted = false;
  77     END IF;
  78     IF do_booking THEN
  79         RETURN QUERY SELECT 'booking'::TEXT, id::BIGINT, barcode FROM booking.resource WHERE barcode = ANY(asset_barcodes);
  80     END IF;
  81     IF do_actor THEN
  82         RETURN QUERY SELECT 'actor'::TEXT, c.usr::BIGINT, c.barcode FROM actor.card c JOIN actor.usr u ON c.usr = u.id WHERE
  83             ((c.barcode = ANY(actor_barcodes) AND c.active) OR c.barcode = in_barcode) AND NOT u.deleted ORDER BY usr;
  84     END IF;
  85     RETURN;
  86 END;
  87 $$ LANGUAGE plpgsql;
  88
  89 COMMIT;