[gnue-contrib] r283 - address/forms

[johannes]

Author: johannes
Date: 2007-11-07 09:27:04 -0600 (Wed, 07 Nov 2007)
New Revision: 283

Modified:
   address/forms/address.gfd
Log:
Make sure to also delete contact details when a company is deleted


Modified: address/forms/address.gfd
===================================================================
--- address/forms/address.gfd   2007-11-07 14:41:55 UTC (rev 282)
+++ address/forms/address.gfd   2007-11-07 15:27:04 UTC (rev 283)
@@ -93,6 +93,14 @@
       <trigger type="POST-FOCUSIN">
         blk_company.contact_count.value = blk_contact.get_record_count()
       </trigger>
+
+      <trigger type="PRE-DELETE">
+        blk_contact.first_record()
+
+        while blk_contact.get_record_status() != 'empty':
+            blk_contact.delete_record()
+            blk_contact.next_record()
+      </trigger>
     </block>
 
     <block name="blk_contact" datasource="dts_contact">