• Files
• Commits
• Log
• Graph
• Stats

package LIMS::DB::RequestConsent;

use base qw(LIMS::RDBO);

#=begin
__PACKAGE__->meta->setup(
    table   => 'request_consent',

    columns => [
        request_id => { type => 'integer', not_null => 1 },
        consent_id => { type => 'integer', not_null => 1 },
        # don't call this 'consent' or get DB::ConsentOption error (? clashes with fk name):
        status    => { type => 'enum', check_in => [ 'yes', 'no' ],
            default => 'no', not_null => 1 },
    ],

    primary_key_columns => [ 'request_id', 'consent_id' ],

    foreign_keys => [
        consent => {
            class       => 'LIMS::DB::ConsentOption',
            key_columns => { consent_id => 'id' },
        },
        request => {
            class       => 'LIMS::DB::Request',
            key_columns => { request_id => 'id' },
            rel_type    => 'one to one',
        },
    ],
);
#=cut

__PACKAGE__->meta->make_manager_class('request_consents');

1;