package LIMS::DB::PreRegistration; use strict; use base qw(LIMS::RDBO); __PACKAGE__->meta->setup( table => 'pre_registration', columns => [ id => { type => 'serial', not_null => 1 }, labno => { type => 'varchar', length => 8, not_null => 1 }, surname => { type => 'varchar', length => 25 }, is_screened => { type => 'enum', check_in => [ 'yes', 'no' ], default => 'no', not_null => 1 }, time => { type => 'timestamp', not_null => 1 }, ], primary_key_columns => [ 'id' ], unique_key => [ 'labno' ], relationships => [ pre_registration_specimen => { class => 'LIMS::DB::PreRegistrationSpecimen', column_map => { id => 'pre_reg_id' }, type => 'one to many', }, ], ); __PACKAGE__->meta->make_manager_class('pre_registration'); 1;