✨ improve lnode trigger when update pipe geom

sql/network/function_trigger_pipe_after.sql

@@ -75,24 +75,34 @@ begin
       if _part_table_name = 'lnode' and TG_TABLE_NAME = 'pipe' then
           EXECUTE FORMAT(
             ' WITH updt AS (
-              SELECT p.id,
+                SELECT p.id,
                 CASE
-                WHEN lp.id is not null THEN p.pipe_id
-                ELSE (tp->>''id'')::int
-                END xpipeid,
+                WHEN tp is null or (tp->>''id'')::int = p.pipe_id THEN p.pipe_id
+                ELSE(tp->>''id'')::int
+                END upipeid,
                 CASE
-                WHEN lp.id is not null THEN ST_ClosestPoint(%3$L, lp.geom)
-                ELSE ST_ClosestPoint(ST_SetSRID(St_GeomFromGeoJSON((tp->>''geom'')), 2154), p.geom)
-                END xgeom
+                WHEN tp is null or (tp->>''id'')::int = p.pipe_id THEN
+                  CASE
+                  WHEN ST_DWithin(ST_ClosestPoint(%3$L, coalesce(lp.geom, p.geom)), ST_StartPoint(%3$L), %5$s)
+                    THEN st_lineinterpolatepoint(%3$L::geometry, 0.1/st_length(%3$L))
+                  WHEN ST_DWithin(ST_ClosestPoint(%3$L, coalesce(lp.geom, p.geom)), ST_EndPoint(%3$L), %5$s)
+                    THEN st_lineinterpolatepoint(%3$L::geometry, 1-(0.1/st_length(%3$L)))
+                  ELSE ST_ClosestPoint(%3$L, coalesce(lp.geom, p.geom)) END
+                ELSE
+                  CASE
+                  WHEN ST_DWithin(ST_ClosestPoint(ST_SetSRID(St_GeomFromGeoJSON((tp->>''geom'')), 2154), coalesce(lp.geom, p.geom)), ST_StartPoint(ST_SetSRID(St_GeomFromGeoJSON((tp->>''geom'')), 2154)), %5$s)
+                    THEN st_lineinterpolatepoint(ST_SetSRID(St_GeomFromGeoJSON((tp->>''geom'')), 2154), 0.1/st_length(ST_SetSRID(St_GeomFromGeoJSON((tp->>''geom'')), 2154)))
+                  WHEN ST_DWithin(ST_ClosestPoint(ST_SetSRID(St_GeomFromGeoJSON((tp->>''geom'')), 2154), coalesce(lp.geom, p.geom)), ST_EndPoint(ST_SetSRID(St_GeomFromGeoJSON((tp->>''geom'')), 2154)), %5$s)
+                      THEN st_lineinterpolatepoint(ST_SetSRID(St_GeomFromGeoJSON((tp->>''geom'')), 2154), 1-(0.1/st_length(ST_SetSRID(St_GeomFromGeoJSON((tp->>''geom'')), 2154))))
+                  ELSE ST_ClosestPoint(ST_SetSRID(St_GeomFromGeoJSON((tp->>''geom'')), 2154), coalesce(lp.geom, p.geom)) END
+                END ugeom
               FROM %1$I.%2$I p
               LEFT OUTER JOIN %1$I.lpipe lp ON lp.end_node=p.id
-                            AND NOT ST_DWithin(ST_ClosestPoint(%3$L, lp.geom), ST_StartPoint(%3$L), %5$s)
-                            AND NOT ST_DWithin(ST_ClosestPoint(%3$L, lp.geom), ST_EndPoint(%3$L), %5$s)
-              ,utils.fnc_get_closest_pipe(p.geom,p.level,''%1$I.pipe'') tp
+              ,utils.fnc_get_closest_pipe(coalesce(lp.geom, p.geom), p.level,''%1$I.pipe'') tp
               WHERE p.pipe_id = %4$s
             )
             UPDATE %1$I.%2$I p
-              SET pipe_id = xpipeid, geom = updt.xgeom
+              SET pipe_id = updt.upipeid, geom = updt.ugeom
             FROM updt
             WHERE p.pipe_id = %4$s
             AND updt.id=p.id;'