Fehlendes 'not null' in MetaSetup CsvImportReport

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

diff --git a/SL/DB/MetaSetup/PartsGroup.pm b/SL/DB/MetaSetup/PartsGroup.pm
index 166f2b8dbe245a4c1455babbf8d184dd749cc130..9c7f02d24515ae12e16b241c39d0cece94b5a80c 100644 (file)
--- a/SL/DB/MetaSetup/PartsGroup.pm
+++ b/SL/DB/MetaSetup/PartsGroup.pm
@@ -6,20 +6,20 @@ use strict;
 
 use base qw(SL::DB::Object);
 
-__PACKAGE__->meta->setup(
-  table   => 'partsgroup',
+__PACKAGE__->meta->table('partsgroup');
 
-  columns => [
-    id         => { type => 'integer', not_null => 1, sequence => 'id' },
-    partsgroup => { type => 'text' },
-    itime      => { type => 'timestamp', default => 'now()' },
-    mtime      => { type => 'timestamp' },
-  ],
+__PACKAGE__->meta->columns(
+  id         => { type => 'integer', not_null => 1, sequence => 'id' },
+  partsgroup => { type => 'text' },
+  itime      => { type => 'timestamp', default => 'now()' },
+  mtime      => { type => 'timestamp' },
+);
 
-  primary_key_columns => [ 'id' ],
+__PACKAGE__->meta->primary_key_columns([ 'id' ]);
 
-  allow_inline_column_values => 1,
-);
+__PACKAGE__->meta->allow_inline_column_values(1);
+
+# __PACKAGE__->meta->initialize;
 
 1;
 ;