CREATE OR REPLACE FUNCTION setqueuepausestatus(INTEGER, VARCHAR) RETURNS INTEGER AS '
  DECLARE
    _event INTEGER;
    _reason VARCHAR;
  BEGIN
    IF $2 = ''yes'' THEN
      _event = 42;
      _reason = ''QueuePauseOn'';
    ELSE
      _event = 43;
      _reason = ''QueuePauseOff'';
    END IF;
    UPDATE contact SET pause = $2 WHERE id = $1;
    INSERT INTO contacthist (contact, stamp, event, parm1)
      VALUES ($1, CURRENT_TIMESTAMP, _event, _reason);
    INSERT INTO activate (action, type, which, status, created)
      VALUES (''modify'', ''user'', $1, ''QUEUED'', CURRENT_TIMESTAMP);
    RETURN 0;
  END;
' LANGUAGE plpgsql;
