hizel/fix-delete.sql

## fix-delete.sql
--
-- Name: msgdel(); Type: FUNCTION; Schema: public; Owner: maxcom
--

CREATE OR REPLACE FUNCTION msgdel() RETURNS trigger
    LANGUAGE plpgsql
    AS $$
DECLARE
        grid int;
	stat_1 int;
	stat int;
        thetopic topics%ROWTYPE;
        thecomment comments%ROWTYPE;
BEGIN
        SELECT * INTO thetopic FROM topics WHERE id = NEW.msgid;
        IF FOUND THEN
                SELECT groupid INTO grid FROM topics WHERE id = NEW.msgid;
                UPDATE groups SET stat1=stat1-1 WHERE id = grid;
                UPDATE topics SET lastmod=CURRENT_TIMESTAMP WHERE id = NEW.msgid;
                UPDATE comments SET topic_deleted=true WHERE topic = NEW.msgid;
        ELSE
                SELECT * INTO thecomment FROM comments WHERE id = NEW.msgid;
                SELECT topic INTO grid FROM comments WHERE id = NEW.msgid;
                UPDATE topics SET stat1=stat1-1, lastmod=CURRENT_TIMESTAMP WHERE id = grid;
		UPDATE topics SET stat2=stat1 WHERE id=grid AND stat2 > stat1;
		UPDATE topics SET stat3=stat1 WHERE id=grid AND stat3 > stat1;
		UPDATE topics SET stat4=stat1 WHERE id=grid AND stat4 > stat1;
                SELECT groupid INTO grid FROM topics WHERE id = grid;
                UPDATE groups SET stat1=stat1-1 WHERE id = grid;
        END IF;
        RETURN NULL;
END;
$$;