ungenutzte Spalte "ranking" aus Tabelle "payment_terms" entfernt

[mfinanz.git] / SL / DB / MetaSetup / Contact.pm

diff --git a/SL/DB/MetaSetup/Contact.pm b/SL/DB/MetaSetup/Contact.pm
index 7f821751983d62bd925687e97b99da1686a331e8..36afa038f9631a5d325ac6272bd9f49e143f2f0e 100644 (file)
--- a/SL/DB/MetaSetup/Contact.pm
+++ b/SL/DB/MetaSetup/Contact.pm
@@ -4,7 +4,7 @@ package SL::DB::Contact;
 
 use strict;
 
-use base qw(SL::DB::Object);
+use parent qw(SL::DB::Object);
 
 __PACKAGE__->meta->table('contacts');
 
@@ -18,6 +18,7 @@ __PACKAGE__->meta->columns(
   cp_gender      => { type => 'character', length => 1 },
   cp_givenname   => { type => 'text' },
   cp_id          => { type => 'integer', not_null => 1, sequence => 'id' },
+  cp_main        => { type => 'boolean' },
   cp_mobile1     => { type => 'text' },
   cp_mobile2     => { type => 'text' },
   cp_name        => { type => 'text' },