lib/SGN/Controller/solGS/Path.pm

   1 package SGN::Controller::solGS::Path;
   2
   3 use Moose;
   4 use namespace::autoclean;
   5
   6 use JSON;
   7
   8 BEGIN { extends 'Catalyst::Controller' }
   9
  10 sub check_page_type : Path('/solgs/check/page/type') Args(0) {
  11     my ( $self, $c ) = @_;
  12
  13     my $page_type = $self->page_type( $c, $c->req->param('page') );
  14
  15     my $ret = { 'page_type' => $page_type };
  16     $ret = to_json($ret);
  17
  18     $c->res->content_type('application/json');
  19     $c->res->body($ret);
  20
  21 }
  22
  23 sub model_page_url {
  24     my ( $self, $args ) = @_;
  25
  26     my $trait_id    = $args->{trait_id};
  27     my $pop_id      = $args->{training_pop_id};
  28     my $protocol_id = $args->{genotyping_protocol_id};
  29
  30     my $path;
  31     if ( $args->{data_set_type} =~ /combined/ ) {
  32         $path =
  33 "/solgs/model/combined/trials/$pop_id/trait/$trait_id/gp/$protocol_id";
  34     }
  35     else {
  36         $path = "/solgs/trait/$trait_id/population/$pop_id/gp/$protocol_id";
  37     }
  38
  39     return $path;
  40
  41 }
  42
  43 sub training_page_url {
  44     my ( $self, $args ) = @_;
  45
  46     my $pop_id      = $args->{training_pop_id};
  47     my $protocol_id = $args->{genotyping_protocol_id};
  48
  49     my $path;
  50     if ( $args->{data_set_type} =~ /combined/ ) {
  51         $path = "/solgs/populations/combined/$pop_id/gp/$protocol_id";
  52     }
  53     else {
  54         $path = "/solgs/population/$pop_id/gp/$protocol_id";
  55     }
  56
  57     return $path;
  58 }
  59
  60 sub multi_models_page_url {
  61     my ( $self, $args ) = @_;
  62
  63     my $training_pop_id = $args->{training_pop_id};
  64     my $protocol_id     = $args->{genotyping_protocol_id};
  65     my $traits_code     = $args->{traits_selection_id};
  66
  67     my $path;
  68     if ( $args->{data_set_type} =~ /combined/ ) {
  69         $path =
  70             "/solgs/models/combined/trials/"
  71           . $training_pop_id
  72           . '/traits/'
  73           . $traits_code . '/gp/'
  74           . $protocol_id;
  75     }
  76     else {
  77         $path =
  78             "/solgs/traits/all/population/"
  79           . $training_pop_id
  80           . '/traits/'
  81           . $traits_code . '/gp/'
  82           . $protocol_id;
  83
  84     }
  85
  86     return $path;
  87
  88 }
  89
  90 sub trial_page_url {
  91     my ( $self, $trial_id ) = @_;
  92
  93     return "/breeders/trial/$trial_id";
  94
  95 }
  96
  97 sub selection_page_url {
  98     my ( $self, $args ) = @_;
  99
 100     my $tr_pop_id   = $args->{training_pop_id};
 101     my $sel_pop_id  = $args->{selection_pop_id};
 102     my $trait_id    = $args->{trait_id};
 103     my $protocol_id = $args->{genotyping_protocol_id};
 104
 105     my $path;
 106     if ( $args->{data_set_type} =~ /combined_populations/ ) {
 107         $path =
 108 "/solgs/combined/model/$tr_pop_id/selection/$sel_pop_id/trait/$trait_id/gp/$protocol_id";
 109     }
 110     else {
 111         $path =
 112 "/solgs/selection/$sel_pop_id/model/$tr_pop_id/trait/$trait_id/gp/$protocol_id";
 113     }
 114
 115     return $path;
 116
 117 }
 118
 119 sub create_hyperlink {
 120     my ( $self, $url, $text ) = @_;
 121
 122     my $link = qq | <a href="$url">$text</a> |;
 123
 124     return $link;
 125
 126 }
 127
 128 sub page_type {
 129     my ( $self, $c, $url ) = @_;
 130
 131     $url = $c->req->path if !$url;
 132
 133     my $model_pages =
 134         'solgs/trait'
 135       . '|solgs/traits/all/'
 136       . '|solgs/model/combined/trials/'
 137       . '|solgs/models/combined/trials/';
 138
 139     my $selection_pop_pages = 'solgs/selection' . '|solgs/combined/model/';
 140
 141     my $training_pop_pages =
 142       'solgs/population/' . '|solgs/populations/combined/';
 143
 144     my $type;
 145     if ( $url =~ $model_pages ) {
 146         $type = 'training_model';
 147     }
 148     elsif ( $url =~ $selection_pop_pages ) {
 149         $type = 'selection_prediction';
 150     }
 151     elsif ( $url =~ $training_pop_pages ) {
 152         $type = 'training_population';
 153     }
 154
 155     return $type;
 156
 157 }
 158
 159 sub parse_ids {
 160     my ( $self, $c ) = @_;
 161
 162     my $page_type = $self->page_type($c);
 163     my $path      = $c->req->path;
 164
 165     my $ids = {};
 166     if ( $page_type =~ /selection/ ) {
 167         my @parts = split( /\//, $path );
 168         my @num   = grep( /\d+/, @parts );
 169
 170         if ( $path =~ /combined/ ) {
 171             $ids = {
 172                 'training_pop_id'        => $num[0],
 173                 'selection_pop_id'       => $num[1],
 174                 'trait_id'               => $num[2],
 175                 'genotyping_protocol_id' => $num[3]
 176             };
 177         }
 178         else {
 179             $ids = {
 180                 'training_pop_id'        => $num[1],
 181                 'selection_pop_id'       => $num[0],
 182                 'trait_id'               => $num[2],
 183                 'genotyping_protocol_id' => $num[3]
 184             };
 185
 186         }
 187     }
 188
 189     return $ids;
 190 }
 191
 192 sub clean_base_name {
 193     my ( $self, $c ) = @_;
 194
 195     my $base = $c->req->base;
 196     $base =~ s/:\d+//;
 197     $base =~ s/(\/)$//;
 198
 199     return $base;
 200 }
 201
 202 ####
 203 1;
 204 ####