foreign keys gefixt

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

diff --git a/SL/DB/MetaSetup/Department.pm b/SL/DB/MetaSetup/Department.pm
index 1d1d95709936b6c5c25279fef81f508a781abe2a..244bb7989a930708826ab1f9bbe34bf006316e5c 100644 (file)
--- a/SL/DB/MetaSetup/Department.pm
+++ b/SL/DB/MetaSetup/Department.pm
@@ -6,21 +6,20 @@ use strict;
 
 use base qw(SL::DB::Object);
 
-__PACKAGE__->meta->setup(
-  table   => 'department',
+__PACKAGE__->meta->table('department');
 
-  columns => [
-    id          => { type => 'integer', not_null => 1, sequence => 'id' },
-    description => { type => 'text' },
-    role        => { type => 'character', default => 'P', length => 1 },
-    itime       => { type => 'timestamp', default => 'now()' },
-    mtime       => { type => 'timestamp' },
-  ],
+__PACKAGE__->meta->columns(
+  id          => { type => 'integer', not_null => 1, sequence => 'id' },
+  description => { 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;
 ;