X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6cf3f7762efd40bee49a2b8f11bb4ab6915d9071..64b49f6c38c2c5763f21df00c7b4580ff70893be:/SL/DB/MetaSetup/FollowUpAccess.pm diff --git a/SL/DB/MetaSetup/FollowUpAccess.pm b/SL/DB/MetaSetup/FollowUpAccess.pm index 0a26083f8..55c6f5f14 100644 --- a/SL/DB/MetaSetup/FollowUpAccess.pm +++ b/SL/DB/MetaSetup/FollowUpAccess.pm @@ -6,29 +6,29 @@ use strict; use base qw(SL::DB::Object); -__PACKAGE__->meta->setup( - table => 'follow_up_access', - - columns => [ - who => { type => 'integer', not_null => 1 }, - what => { type => 'integer', not_null => 1 }, - id => { type => 'serial', not_null => 1 }, - ], - - primary_key_columns => [ 'id' ], - - foreign_keys => [ - employee => { - class => 'SL::DB::Employee', - key_columns => { who => 'id' }, - }, - - employee_obj => { - class => 'SL::DB::Employee', - key_columns => { what => 'id' }, - }, - ], +__PACKAGE__->meta->table('follow_up_access'); + +__PACKAGE__->meta->columns( + who => { type => 'integer', not_null => 1 }, + what => { type => 'integer', not_null => 1 }, + id => { type => 'serial', not_null => 1 }, +); + +__PACKAGE__->meta->primary_key_columns([ 'id' ]); + +__PACKAGE__->meta->foreign_keys( + employee => { + class => 'SL::DB::Employee', + key_columns => { who => 'id' }, + }, + + employee_obj => { + class => 'SL::DB::Employee', + key_columns => { what => 'id' }, + }, ); +# __PACKAGE__->meta->initialize; + 1; ;