lib/SGN/Controller/AJAX/Trials.pm

   1
   2 package SGN::Controller::AJAX::Trials;
   3
   4 use Moose;
   5
   6 use CXGN::BreedersToolbox::Projects;
   7 use CXGN::Trial::Folder;
   8 use Data::Dumper;
   9 use Carp;
  10 use File::Path qw(make_path);
  11 use File::Spec::Functions qw / catfile catdir/;
  12 use SGN::Model::Cvterm;
  13
  14 BEGIN { extends 'Catalyst::Controller::REST'; }
  15
  16 __PACKAGE__->config(
  17     default   => 'application/json',
  18     stash_key => 'rest',
  19     map       => { 'application/json' => 'JSON', 'text/html' => 'JSON' },
  20    );
  21
  22
  23 sub get_trials : Path('/ajax/breeders/get_trials') Args(0) {
  24     my $self = shift;
  25     my $c = shift;
  26
  27     my $p = CXGN::BreedersToolbox::Projects->new( { schema => $c->dbic_schema("Bio::Chado::Schema") } );
  28
  29     my $projects = $p->get_breeding_programs();
  30
  31     my %data = ();
  32     foreach my $project (@$projects) {
  33         my $trials = $p->get_trials_by_breeding_program($project->[0]);
  34         $data{$project->[1]} = $trials;
  35
  36     }
  37
  38     $c->stash->{rest} = \%data;
  39 }
  40
  41 sub get_trials_with_folders : Path('/ajax/breeders/get_trials_with_folders') Args(0) {
  42     my $self = shift;
  43     my $c = shift;
  44     my $tree_type = $c->req->param('type') || 'trial'; #can be 'trial' or 'genotyping_trial', 'cross'
  45
  46     my $schema = $c->dbic_schema("Bio::Chado::Schema");
  47     my $p = CXGN::BreedersToolbox::Projects->new( { schema => $schema  } );
  48
  49     my $projects = $p->get_breeding_programs();
  50
  51     my $html = "";
  52     my $folder_obj = CXGN::Trial::Folder->new( { bcs_schema => $schema, folder_id => @$projects[0]->[0] });
  53
  54     print STDERR "Starting get trials $tree_type at time ".localtime()."\n";
  55     foreach my $project (@$projects) {
  56         my %project = ( "id" => $project->[0], "name" => $project->[1]);
  57         $html .= $folder_obj->get_jstree_html(\%project, $schema, 'breeding_program', $tree_type);
  58     }
  59     print STDERR "Finished get trials $tree_type at time ".localtime()."\n";
  60
  61     my $dir = catdir($c->site_cluster_shared_dir, "folder");
  62     eval { make_path($dir) };
  63     if ($@) {
  64         print "Couldn't create $dir: $@";
  65     }
  66     my $filename = $dir."/entire_jstree_html_$tree_type.txt";
  67
  68     my $OUTFILE;
  69     open $OUTFILE, '>', $filename or die "Error opening $filename: $!";
  70     print { $OUTFILE } $html or croak "Cannot write to $filename: $!";
  71     close $OUTFILE or croak "Cannot close $filename: $!";
  72
  73     $c->stash->{rest} = { status => 1 };
  74 }
  75
  76 sub get_trials_with_folders_cached : Path('/ajax/breeders/get_trials_with_folders_cached') Args(0) {
  77     my $self = shift;
  78     my $c = shift;
  79     my $tree_type = $c->req->param('type') || 'trial'; #can be 'trial' or 'genotyping_trial', 'cross'
  80
  81     my $dir = catdir($c->site_cluster_shared_dir, "folder");
  82     my $filename = $dir."/entire_jstree_html_$tree_type.txt";
  83     my $html = '';
  84     open(my $fh, '<', $filename) or die "cannot open file $filename";
  85     {
  86         local $/;
  87         $html = <$fh>;
  88     }
  89     close($fh);
  90
  91     #print STDERR $html;
  92     $c->stash->{rest} = { html => $html };
  93 }
  94
  95 sub trial_autocomplete : Local : ActionClass('REST') { }
  96
  97 sub trial_autocomplete_GET :Args(0) {
  98     my ($self, $c) = @_;
  99
 100     my $term = $c->req->param('term');
 101
 102     print STDERR "Term: $term\n";
 103     $term =~ s/(^\s+|\s+)$//g;
 104     $term =~ s/\s+/ /g;
 105
 106     my $trial_design_cvterm_id = SGN::Model::Cvterm->get_cvterm_row($c->dbic_schema("Bio::Chado::Schema"), "design", "project_property")->cvterm_id();
 107     my @response_list;
 108     my $q = "select distinct(name) from project join projectprop using(project_id) where project.name ilike ? and projectprop.type_id = ? ORDER BY name";
 109     my $sth = $c->dbc->dbh->prepare($q);
 110     $sth->execute('%'.$term.'%', $trial_design_cvterm_id);
 111     while (my ($project_name) = $sth->fetchrow_array) {
 112         push @response_list, $project_name;
 113     }
 114     #print STDERR Dumper \@response_list;
 115
 116     print STDERR "Returning...\n";
 117     $c->stash->{rest} = \@response_list;
 118 }