package LIMS::Controller::Roles::Storage;
use POSIX;
use Moose::Role;
use Data::Printer alias => 'p';
# calculates location of rack and tray according to location specification:
sub auto_location {
my ($self, $base_location) = @_;
my $i = do {
my $q = [ storage_location => { like => $base_location . '%' } ];
$self->model('Base')->get_objects_count('StorageRack', { query => $q });
}; # p $i;
if ( $self->cfg('settings')->{'_centre'} eq 'leeds' ) {
# see scripts/test_scripts/storage_locations.pl for calculations
my $rack = floor($i / 36) + 1; # p $rack;
my $tray = floor($i % 36 / 4) + 1; # p $tray;
if ( $base_location eq 'Archive' ) { # replace rack number with letter:
my $letter = 'A'; # start at A and auto-increment, a ..z, aa, ab, etc
$letter++ while --$rack; # p $letter;
$rack = $letter;
}
return join '/', $base_location, $rack, $tray;
}
# else { return join '/', $base_location, ++$i }
return $base_location; # will be free-text box
}
#===============================================================================
sub _rack_dimensions_map { # dimensions A1-D6, A1-H8, etc
return {
24 => { alpha_max => 'D', numbr_max => 6 },
48 => { alpha_max => 'F', numbr_max => 8 },
96 => { alpha_max => 'H', numbr_max => 12 },
};
}
#===============================================================================
sub _dummy_data { # dummy data to spare plate reader ...
my $self = shift;
=begin # to clear request_storage & storage_racks tables:
UPDATE request_storage SET rack_id = NULL;
UPDATE request_storage SET vial_location = NULL;
UPDATE request_storage SET signed_out = NULL;
SET FOREIGN_KEY_CHECKS=0;
TRUNCATE TABLE storage_racks;
SET FOREIGN_KEY_CHECKS=1;
=cut
#=begin # uncomment to get 24, 48 or 96 vials from request_storage db table:
{
my $number_of_vials = 96; # 24, 48 or 96
my $rack_dimensions = _rack_dimensions_map(); # dimensions A1-D6, A1-H8, etc
my $q = [ # uncomment one:
# vial_location => undef # not assigned to a rack
vial_location => { ne => undef } # is assigned to a rack
];
my $data = do {
my %args = ( query => $q, limit => $number_of_vials );
$self->model('Base')->get_objects('RequestStorage', \%args );
}; # p $_->as_tree for @$data;
# 24/48/96-well data (24-well = A1-D6, 48-well = A1-F8, 96-well = A1-H12):
my $alpha_max = $rack_dimensions->{$number_of_vials}{alpha_max};
my $numbr_max = sprintf '%02d', $rack_dimensions->{$number_of_vials}{numbr_max};
my @cells = map { $_ . '01' .. $_ . $numbr_max } ( 'A' .. $alpha_max ); # p @cells;
my %h; @h{@cells} = map $_->vialId, @$data; # p %h;
my $plateId = DateTime->now->epoch;
# uncomment to get plateId from storage_racks:
# $plateId = $self->model('Storage')->get_objects('StorageRack',
# { query => [ is_active => 'yes' ], limit => 1 } )->[0]->plateId; # p $plateId;
return { # same format as xtr-96 output:
plate_data => \%h,
well_max => $rack_dimensions->{$number_of_vials},
plateId => $plateId,
};
}
#=cut
=begin to get more data from db:
select vialId, vial_location
from request_storage
where vial_location is not null and signed_out is null
group by vial_location
order by vial_location
select vial_location, vialId
from request_storage rs
join storage_racks sr on rs.rack_id = sr.id
where sr.plateId = 'SA00084423'
order by vial_location
=cut
my $plateId = 'SA00084427'; # SA00098711
my %data = (
'A01' => '1020850304',
'A02' => '1020850312',
'A03' => '1020850320',
'A04' => '1020850328',
'A05' => '1020850336',
'A06' => '1020850344',
'A07' => '1020850352',
'A08' => '1020850360',
'A09' => '1020850368',
'A10' => '1020850321',
'A11' => '1020850384',
'A12' => '1020850392',
'B01' => '1020850305',
'B02' => '1020850313',
'B03' => '1020850348',
'B04' => '1020850383',
'B05' => '1020850391',
'B06' => '1020850345',
'B07' => '1020850353',
'B08' => '1020850361',
'B09' => '1020850369',
'B10' => '1020850367',
'B11' => '1020850385',
'B12' => '1020850393',
'C01' => '1020850306',
'C02' => '1020850314',
'C03' => '1020850322',
'C04' => '1020850359',
'C05' => '1020850338',
'C06' => '1020850346',
'C07' => '1020850354',
'C08' => '1020850362',
'C09' => '1020850370',
'C10' => '1020850378',
'C11' => '1020850386',
'C12' => '1020850394',
'D01' => '1020850319',
'D02' => '1020850315',
'D03' => '1020850323',
'D04' => '1020850331',
'D05' => '1020850355',
'D06' => '1020850347',
'D07' => '1020850397',
'D08' => '1020850398',
'D09' => '1020850371',
'D10' => '1020850379',
'D11' => '1020850387',
'D12' => '1020850395',
'E01' => '1020850308',
'E02' => '1020850316',
'E03' => '1020850324',
'E04' => '1020850332',
'E05' => '1020850340',
'E06' => '1020850311',
'E07' => '1020850356',
'E08' => '1020850364',
'E09' => '1020850372',
'E10' => '1020850380',
'E11' => '1020850388',
'E12' => '1020850382',
'F01' => '1020850390',
'F02' => '1020850317',
'F03' => '1020850325',
'F04' => '1020850358',
'F05' => '1020850333',
'F06' => '1020850357',
'F07' => '1020850374',
'F08' => '1020850365',
'F09' => '1020850373',
'F10' => '1020850381',
'F11' => '1020850406',
'F12' => '1020850414',
'G01' => '1020850422',
'G02' => '1020850405',
'G03' => '1020850413',
'G04' => '1020850421',
'G05' => '1020850429',
'G06' => '1020850437',
'G07' => '1020850445',
'G08' => '1020850453',
'G09' => '1020850461',
'G10' => '1020850469',
'G11' => '1020850477',
'G12' => '1020850485',
'H01' => '1020850493',
'H02' => '1020850404',
'H03' => '1020850412',
'H04' => '1020850420',
'H05' => '1020850428',
'H06' => '1020850436',
'H07' => '1020850444',
'H08' => '1020850452',
'H09' => '1020850460',
'H10' => '1020850468',
'H11' => '1020850476',
'H12' => '1020850484',
); # warn Dumper \%data;
my %h = ( plateId => $plateId );
# uncomment to return 48-well data (replace 96 with 48):
%data = map { $_ => $data{$_} } grep $_ =~ /[A-F]0[1-8]/, keys %data; # p %data;
$h{plate_data} = \%data;
{ # get number of wells from $data for tt to draw table of correct size:
my $dimensions_map = _rack_dimensions_map(); # dimensions A1-D6, A1-H8, etc
my $number_of_wells = keys %data; # warn $number_of_wells;
$h{well_max} = $dimensions_map->{$number_of_wells};
} p %h;
return \%h; # same format as xtr-96 output
}
1;
