diff --git a/database/vtm/view_table_manager.anubis b/database/vtm/view_table_manager.anubis
index b183a31..ac037dd 100644
--- a/database/vtm/view_table_manager.anubis
+++ b/database/vtm/view_table_manager.anubis
@@ -6,8 +6,8 @@
  */
  
 read tools/basis.anubis
-read calexium_lib/database/vtm/view_table_types.anubis
-read calexium_lib/database/vtm/view_table_manager_types.anubis
+transmit calexium_lib/database/vtm/view_table_types.anubis
+transmit calexium_lib/database/vtm/view_table_manager_types.anubis
 
 public define Maybe(VTM_view)
   _vtm_get_view
@@ -84,3 +84,28 @@ public define Maybe(TM_writer)
     TM_writer_list  tm_wlist
   ) = 
   _tm_get_writer(table_name, tm_wlist.list).
+
+public define Maybe((SQLite3DataBase db, List(Int) l_int) -> Maybe(One))
+  _tm_get_delete
+  (
+    String          table_name,
+    List(TM_delete) list
+  ) = 
+  if list is
+  {
+    []        then  failure,
+    [ h . t ] then
+      since h is tm_delete(tb_name, delete_func),
+        if tb_name = table_name then
+          success(delete_func)
+        else
+          _tm_get_delete(table_name, t)
+  }.
+  
+public define Maybe((SQLite3DataBase db, List(Int) l_int) -> Maybe(One))
+  tm_get_delete
+  (
+    String          table_name,
+    TM_delete_list  tm_dlist
+  ) = 
+  _tm_get_delete(table_name, tm_dlist.list).
diff --git a/database/vtm/view_table_manager_types.anubis b/database/vtm/view_table_manager_types.anubis
index f888b36..18e5bc4 100644
--- a/database/vtm/view_table_manager_types.anubis
+++ b/database/vtm/view_table_manager_types.anubis
@@ -21,6 +21,11 @@ public type TM_writer:
 public type TM_writer_list:
   tm_writer_list(List(TM_writer) list).
   
+public type TM_delete:
+  tm_delete(String table_name, (SQLite3DataBase db, List(Int) l_int) -> Maybe(One) delete).
+
+public type TM_delete_list:
+  tm_delete_list(List(TM_delete) list).
   
 public type VTM_view:
   vtm_view(String table_name, (SQLite3DataBase  db, String view_name) -> VT_view get_view).
@@ -29,4 +34,7 @@ public type VTM_view_list:
   vtm_view_list(List(VTM_view) list).
 
 public type VTM:
-  vtm(VTM_view_list view_list, VTM_edit_list edit_list, TM_writer_list writer_list).
+  vtm(VTM_view_list view_list, 
+      VTM_edit_list edit_list, 
+      TM_writer_list writer_list,
+      TM_delete_list delete_list).
diff --git a/web/CXM_common.anubis b/web/CXM_common.anubis
index 71e2a60..b1e8612 100644
--- a/web/CXM_common.anubis
+++ b/web/CXM_common.anubis
@@ -2,12 +2,15 @@
  *Project*                            The Anubis Project
  *Title*                         Some common stuff for the web. 
 
- *Copyright*                    Copyright (c) Alain Prouté 2003. 
+ *Copyright*                    
+  Copyright (c) Alain Prouté 2003~2007.
+  © Calexium 2007~2016
  
  
- 
- *Author* Alain Prouté
-
+ *Authors:* 
+  Alain Prouté
+  David René
+  
  *Public*
  *Name* HTTP_header
  *Description*  
--
libgit2 0.21.4