Open-ILS/src/sql/Pg/upgrade/0282.schema.user-visiable-holds

   1 BEGIN;
   2
   3 INSERT INTO config.upgrade_log (version) VALUES ('0282');
   4
   5 INSERT INTO config.usr_setting_type (name,opac_visible,label,description,datatype)
   6     VALUES ('history.hold.retention_age', TRUE, 'Historical Hold Retention Age', 'Historical Hold Retention Age', 'interval');
   7 INSERT INTO config.usr_setting_type (name,opac_visible,label,description,datatype)
   8     VALUES ('history.hold.retention_count', TRUE, 'Historical Hold Retention Count', 'Historical Hold Retention Count', 'integer');
   9
  10
  11 -- Logic reversal, fixing
  12 CREATE OR REPLACE FUNCTION action.usr_visible_circs (usr_id INT) RETURNS SETOF action.circulation AS $func$
  13 DECLARE
  14     c               action.circulation%ROWTYPE;
  15     view_age        INTERVAL;
  16     usr_view_age    actor.usr_setting%ROWTYPE;
  17     usr_view_start  actor.usr_setting%ROWTYPE;
  18 BEGIN
  19     SELECT * INTO usr_view_age FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.circ.retention_age';
  20     SELECT * INTO usr_view_start FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.circ.retention_start_date';
  21
  22     IF usr_view_age.value IS NOT NULL AND usr_view_start.value IS NOT NULL THEN
  23         -- User opted in and supplied a retention age
  24         IF oils_json_to_string(usr_view_age.value)::INTERVAL > AGE(NOW(), oils_json_to_string(usr_view_start.value)::TIMESTAMPTZ) THEN
  25             view_age := AGE(NOW(), oils_json_to_string(usr_view_start.value)::TIMESTAMPTZ);
  26         ELSE
  27             view_age := oils_json_to_string(usr_view_age.value)::INTERVAL;
  28         END IF;
  29     ELSIF usr_view_start.value IS NOT NULL THEN
  30         -- User opted in
  31         view_age := AGE(NOW(), oils_json_to_string(usr_view_start.value)::TIMESTAMPTZ);
  32     ELSE
  33         -- User did not opt in
  34         RETURN;
  35     END IF;
  36
  37     FOR c IN
  38         SELECT  *
  39           FROM  action.circulation
  40           WHERE usr = usr_id
  41                 AND parent_circ IS NULL
  42                 AND xact_start > NOW() - view_age
  43           ORDER BY xact_start
  44     LOOP
  45         RETURN NEXT c;
  46     END LOOP;
  47
  48     RETURN;
  49 END;
  50 $func$ LANGUAGE PLPGSQL;
  51
  52 CREATE OR REPLACE FUNCTION action.usr_visible_holds (usr_id INT) RETURNS SETOF action.hold_request AS $func$
  53 DECLARE
  54     h               action.hold_request%ROWTYPE;
  55     view_age        INTERVAL;
  56     view_count      INT;
  57     usr_view_count  actor.usr_setting%ROWTYPE;
  58     usr_view_age    actor.usr_setting%ROWTYPE;
  59 BEGIN
  60     SELECT * INTO usr_view_count FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.hold.retention_count';
  61     SELECT * INTO usr_view_age FROM actor.usr_setting WHERE usr = usr_id AND name = 'history.hold.retention_age';
  62
  63     IF usr_view_count.value IS NULL AND usr_view_age.value IS NULL THEN
  64         -- Only show "open" holds
  65         FOR h IN
  66             SELECT  *
  67               FROM  action.hold_request
  68               WHERE usr = usr_id
  69                     AND fulfillment_time IS NULL
  70                     AND cancel_time IS NULL
  71               ORDER BY xact_start
  72         LOOP
  73             RETURN NEXT h;
  74         END LOOP;
  75
  76         RETURN;
  77     END IF;
  78
  79     IF usr_view_age.value IS NOT NULL THEN
  80         view_age := oils_json_to_string(usr_view_age.value)::INTERVAL;
  81     ELSE
  82         view_age := '2000 years'::INTERVAL;
  83     END IF;
  84
  85     IF usr_view_count.value IS NOT NULL THEN
  86         view_count := oils_json_to_string(usr_view_count.value)::INT;
  87     ELSE
  88         view_count := 1000;
  89     END IF;
  90
  91     -- Else, show those /and/ some fulfilled/canceled holds
  92     FOR h IN
  93         SELECT  *
  94           FROM  action.hold_request
  95           WHERE usr = usr_id
  96                 AND fulfillment_time IS NULL
  97                 AND cancel_time IS NULL
  98                     UNION ALL
  99         SELECT  *
 100           FROM  action.hold_request
 101           WHERE usr = usr_id
 102                 AND ( fulfillment_time IS NOT NULL OR cancel_time IS NOT NULL )
 103                 AND request_time > NOW() - view_age
 104           ORDER BY request_time
 105           LIMIT view_count
 106     LOOP
 107         RETURN NEXT h;
 108     END LOOP;
 109
 110     RETURN;
 111 END;
 112 $func$ LANGUAGE PLPGSQL;
 113
 114 COMMIT;
 115