• Files
• Commits
• Log
• Graph
• Stats

package LIMS::Model::RequestOption;

use base 'LIMS::Model::Base';

use strict;

# -------------------------------------------------------------------------------------
sub get_request_options {
    my $self = shift;
    
    my $request_opts = LIMS::DB::AdditionalOption::Manager
        ->get_additional_options( sort_by => 'option_name' );
    
    return $request_opts;
}

# -------------------------------------------------------------------------------------
sub get_request_option {
    my ($self, $request_id) = @_;
    
    my $request_opt = LIMS::DB::AdditionalOption->new( id => $request_id )->load;
    
    return $request_opt;
}

# ------------------------------------------------------------------------------
sub update_request_options {
    my $self = shift;
    my $data = shift; # $self->debug( $data );

    my %args = ( class => 'AdditionalOption', data => $data );
    
    return $self->update_object(\%args);    
}

1;