• Files
• Commits
• Log
• Graph
• Stats

package LIMS::Controller::Roles::Resource;

use Moose::Role;
use Data::Dumper;

sub new_and_relapsed_diagnoses {
    my ($self, $org_code) = @_; # org_code optional
    
    my %h;
    
    { # get map of user locations => region_code:
        my $locations_map = $self->user_locations_map;
        $h{locations_map} = $locations_map;
    }

    # if we have an org_code to search on:
    if ($org_code) { # warn Dumper $org_code;
        my $duration = $self->query->param('duration') || 7; # default    
        
        my %args = ( duration => $duration );
        # RDBO default for array(ref) is IN(??), but is very slow in _this_ query
        if ( ref $org_code eq 'ARRAY' ) { # construct a much faster RLIKE query:
            my $str = join '|', @$org_code;
            $args{org_code} = { rlike => $str }; 
        }
        elsif ( $org_code ne '%' ) { # % = all locations - doesn't need org_code param
            $args{org_code} = $org_code;
        }

        my $data = $self->model('Request')->get_new_and_relapsed_cases(\%args);
        $h{results} = $data;
=begin # fixed - see get_new_and_relapsed_cases()
        # sort data by report_history.time since Rose can't do it:
        my @sorted = sort { # warn Dumper $a->request_history->time;
            my $A = $a->request_history->[0]->time->truncate( to => 'day' ); 
            my $B = $b->request_history->[0]->time->truncate( to => 'day' );
			
            DateTime->compare( $A, $B ) # date 1st 
                || $a->year <=> $b->year # year 2nd
                    || $a->request_number <=> $b->request_number; # req_no 3rd	
        } @$data; # warn Dumper \@sorted;
        $h{results} = \@sorted;
=cut        
    }
    
    return \%h;
}

sub get_admin_messages {
    my ($self, $user_location) = @_;
    
    my $user_type = # is user internal or external?
        $user_location eq $self->cfg('settings')->{lab_name_abbreviation}
        ? 'internal'
        : 'external';

    my $messages = $self->model('User')->get_admin_messages($user_type);
    return $messages;
}

sub get_user_messages {
    my ($self, $user_id) = @_;
    
    my $messages = $self->model('User')->get_user_messages($user_id);
    return $messages;
}

sub get_network_locations {
	my $self = shift;
	
	my $cfg = $self->get_yaml_file('network_locations') || return 0;
	
	my $user = $self->authen->username; # warn $user;

    if ( my $network_name = $cfg->{usernames}->{$user} ) {
		my $network_locations = $cfg->{networks}->{$network_name};
		return $network_locations;
	}
	return 0;	
}

1;