= Тригери
== 1. Тригер за спречување на преклопени договори по оглас
* Тригер за забрана на преклопени изнајмувања (Lease) за ист оглас (Listing) ]. Целта е да се спречи креирање на изнајмувања со ранг на датуми кои се преклопуваат за ист Listing. Доколку новото (или изменетото) изнајмување се поклопува со постоечко, операцијата ќе биде одбиена со `RAISE EXCEPTION`.
{{{
CREATE OR REPLACE FUNCTION domify.f_lease_no_overlap()
RETURNS TRIGGER AS $$
DECLARE
  cnt INT;
BEGIN
  SELECT COUNT(*) INTO cnt
  FROM domify."lease"
  WHERE listing_id = NEW.listing_id
    AND id <> COALESCE(NEW.id, -1)
    AND daterange(start_date, end_date, '[]')
        && daterange(NEW.start_date, NEW.end_date, '[]');
  IF cnt > 0 THEN
     RAISE EXCEPTION
       'Listing % веќе има договор кој се преклопува со периодот %–%',
       NEW.listing_id, NEW.start_date, NEW.end_date;
  END IF;
  RETURN NEW;
END;
$$ LANGUAGE plpgsql;

CREATE TRIGGER t_lease_no_overlap
BEFORE INSERT OR UPDATE ON domify."lease"
FOR EACH ROW
EXECUTE FUNCTION domify.f_lease_no_overlap();

}}}
== 2. Тригери за суспендирање на рејтингот на станар при повеќекратни задоцнети плаќања
* Доколку станар има три или повеќе задоцнети плаќања низ сите негови изнајмувања, неговиот UserD.rating се поставува на 0, а во биографијата се додава напомена дека е суспендиран.
{{{
CREATE OR REPLACE FUNCTION suspend_rating_on_repeated_delinquency()
RETURNS TRIGGER AS $$
DECLARE
  tenant_rec domify.Lease%ROWTYPE;
  late_payments INT;
BEGIN
  SELECT * INTO tenant_rec FROM domify.Lease WHERE id = NEW.lease_id;
  IF FOUND THEN
    SELECT COUNT(*) INTO late_payments
      FROM domify.Payment p
      JOIN domify.Lease l ON p.lease_id = l.id
     WHERE l.tenant_id = tenant_rec.tenant_id AND p.status = 'доцнење';

    IF late_payments >= 3 THEN
      UPDATE domify.UserD
         SET rating = 0.00,
             bio = 'Суспендиран станар поради повеќе доцнења на плаќање'
       WHERE id = (SELECT id FROM domify.UserD WHERE id = tenant_rec.tenant_id);
    END IF;
  END IF;
  RETURN NEW;
END;
$$ LANGUAGE plpgsql;

CREATE TRIGGER trg_suspend_tenant_on_late_payments
AFTER INSERT OR UPDATE ON domify.Payment
FOR EACH ROW
WHEN (NEW.status = 'доцнење')
EXECUTE FUNCTION suspend_rating_on_repeated_delinquency();
}}}

== 3. Тригер за закажување на инспекција на единицата веднаш по креирање на договор

* Со овој тригер се креираат 3 инспекции на единицата веднаш по креирање на договорот, првата е пред да се всели изнајмувачот, втората се закажува за оние единици чии договор трае повеќе од 8 месеци и третата се закажува 7 дена пред да заврши договорот за да се направи финална проверка на единицата. Дополнително се прави проверка дали датумот за секоја од овие 3 инспекции е викенд, со што се прави поместување +1 за недела, +2дена за сабота со цел инспекциите да се одвиваат во работна недела.
{{{
CREATE OR REPLACE FUNCTION domify.f_schedule_mandatory_inspections()
RETURNS TRIGGER AS $$
DECLARE
    lease_duration_months INT;
    initial_inspection_date DATE;
    midterm_inspection_date DATE;
    final_inspection_date DATE;
BEGIN
    lease_duration_months := EXTRACT(MONTH FROM AGE(NEW.end_date, NEW.start_date)) + 
                            EXTRACT(YEAR FROM AGE(NEW.end_date, NEW.start_date)) * 12;
    
    initial_inspection_date := domify.f_adjust_for_weekend((NEW.start_date - INTERVAL '1 day')::DATE);
    midterm_inspection_date := domify.f_adjust_for_weekend((NEW.start_date + INTERVAL '6 months')::DATE);
    final_inspection_date := domify.f_adjust_for_weekend((NEW.end_date - INTERVAL '7 days')::DATE);
    
    IF NEW.start_date > CURRENT_DATE + INTERVAL '1 day' THEN
        INSERT INTO domify.Inspection (
            inspection_date, 
            notes, 
            lease_id, 
            landlord_id
        ) VALUES (
            initial_inspection_date,
            'Почетна инспекција - проверка дали се е добро пред вселување' ||
            CASE WHEN initial_inspection_date != (NEW.start_date - INTERVAL '1 day')::DATE 
                 THEN ' (поместена од викенд)' 
                 ELSE '' 
            END,
            NEW.id,
            NEW.landlord_id
        );
    END IF;
    
    IF lease_duration_months >= 8 THEN
        INSERT INTO domify.Inspection (
            inspection_date, 
            notes, 
            lease_id, 
            landlord_id
        ) VALUES (
            midterm_inspection_date,
            'Полугодишна инспекција - проверка на состојбата во која се наоѓа единицата' ||
            CASE WHEN midterm_inspection_date != (NEW.start_date + INTERVAL '6 months')::DATE 
                 THEN ' (поместена од викенд)' 
                 ELSE '' 
            END,
            NEW.id,
            NEW.landlord_id
        );
    END IF;
    
    INSERT INTO domify.Inspection (
        inspection_date, 
        notes, 
        lease_id, 
        landlord_id
    ) VALUES (
        final_inspection_date,
        'Финална инспекција - оценка на штети и депозит' ||
        CASE WHEN final_inspection_date != (NEW.end_date - INTERVAL '7 days')::DATE 
             THEN ' (поместена од викенд)' 
             ELSE '' 
        END,
        NEW.id,
        NEW.landlord_id
    );
    
    RETURN NEW;
END;
$$ LANGUAGE plpgsql;

CREATE TRIGGER t_schedule_mandatory_inspections
    AFTER INSERT ON domify.Lease
    FOR EACH ROW
    EXECUTE FUNCTION domify.f_schedule_mandatory_inspections();
}}}
Функцијата која се користи за поместувањето:
{{{
CREATE OR REPLACE FUNCTION domify.f_adjust_for_weekend(input_date DATE) 
RETURNS DATE AS $$
BEGIN
    CASE EXTRACT(DOW FROM input_date)
        WHEN 0 THEN RETURN input_date + INTERVAL '1 day';
        WHEN 6 THEN RETURN input_date + INTERVAL '2 days';
        ELSE RETURN input_date;
    END CASE;
END;
$$ LANGUAGE plpgsql;
}}}