lib/SGN/View/Trial.pm

   1 package SGN::View::Trial;
   2 use base 'Exporter';
   3 use strict;
   4 use warnings;
   5
   6 our @EXPORT_OK = qw/
   7     design_layout_view
   8     design_info_view
   9     trial_detail_design_view
  10 /;
  11 our @EXPORT = ();
  12
  13 sub trial_detail_design_view {
  14   my $design_ref = shift;
  15   my %design = %{$design_ref};
  16   my $design_result_html;
  17
  18   $design_result_html .= '<table border="1">';
  19   $design_result_html .= qq{<tr><th>Plot Name</th><th>Accession Name</th><th>Check Name</th><th>Row number</th><th>Col number</th><th>Block Number</th><th>Block Row Number</th><th>Block Col Number</th><th>Rep Number</th></tr>};
  20
  21   foreach my $key (sort { $a <=> $b} keys %design) {
  22       $design_result_html .= "<tr>";
  23       if ($design{$key}->{plot_name}) {
  24           $design_result_html .= "<td>".$design{$key}->{plot_name}."</td>";
  25       } else {
  26           $design_result_html .= "<td></td>";
  27       }
  28       if ($design{key}->{accession_name}) {
  29           $design_result_html .= "<td>".$design{$key}->{accession_name}."</td>";
  30       } else {
  31           $design_result_html .= "<td></td>";
  32       }
  33       if ($design{key}->{check_name}) {
  34           $design_result_html .= "<td>".$design{$key}->{check_name}."</td>";
  35       } else {
  36           $design_result_html .= "<td></td>";
  37       }
  38       if ($design{key}->{row_number}) {
  39           $design_result_html .= "<td>".$design{$key}->{row_number}."</td>";
  40       } else {
  41           $design_result_html .= "<td></td>";
  42       }
  43       if ($design{key}->{col_number}) {
  44           $design_result_html .= "<td>".$design{$key}->{col_number}."</td>";
  45       } else {
  46           $design_result_html .= "<td></td>";
  47       }
  48       if ($design{key}->{block_number}) {
  49           $design_result_html .= "<td>".$design{$key}->{block_number}."</td>";
  50       } else {
  51           $design_result_html .= "<td></td>";
  52       }
  53       if ($design{key}->{block_row_number}) {
  54           $design_result_html .= "<td>".$design{$key}->{block_row_number}."</td>";
  55       } else {
  56           $design_result_html .= "<td></td>";
  57       }
  58       if ($design{key}->{block_col_number}) {
  59           $design_result_html .= "<td>".$design{$key}->{block_col_number}."</td>";
  60       } else {
  61           $design_result_html .= "<td></td>";
  62       }
  63       if ($design{key}->{rep_number}) {
  64           $design_result_html .= "<td>".$design{$key}->{rep_number}."</td>";
  65       } else {
  66           $design_result_html .= "<td></td>";
  67       }
  68       $design_result_html .= "</tr>";
  69   }
  70   $design_result_html .= "</table>";
  71   return  "$design_result_html";
  72
  73 }
  74
  75
  76 sub design_layout_view {
  77     my $design_ref = shift;
  78     my $design_info_ref = shift;
  79     my $design_type = shift;
  80     my %design = %{$design_ref};
  81     my %design_info = %{$design_info_ref};
  82     my $design_result_html;
  83
  84     $design_result_html .= '<table border="1">';
  85     if ($design_type eq 'greenhouse') {
  86         $design_result_html .= qq{<tr><th>Plant Name</th><th>Accession Name</th></tr>};
  87
  88         foreach my $key (sort { $a <=> $b} keys %design) {
  89             my $plant_name = $design{$key}->{plant_name} || '';
  90             my $stock_name = $design{$key}->{stock_name} || '';
  91
  92             $design_result_html .= "<tr><td>".$plant_name."</td><td>".$stock_name."</td></tr>";
  93         }
  94     } else {
  95         $design_result_html .= qq{<tr><th>Plot Name</th><th>Accession Name</th><th>Check Name</th><th>Row number</th><th>Col number</th><th>Block Number</th><th>Block Row Number</th><th>Block Col Number</th><th>Rep Number</th></tr>};
  96
  97         foreach my $key (sort { $a <=> $b} keys %design) {
  98             my $plot_name = $design{$key}->{plot_name} || '';
  99             my $stock_name = $design{$key}->{stock_name} || '';
 100             my $check_name = $design{$key}->{check_name} || '';
 101             my $row_number = $design{$key}->{row_number} || '';
 102             my $col_number = $design{$key}->{col_number} || '';
 103             my $block_number = $design{$key}->{block_number} || '';
 104             my $block_row_number = $design{$key}->{block_row_number} || '';
 105             my $block_col_number = $design{$key}->{block_col_number} || '';
 106             my $rep_number = $design{$key}->{rep_number} || '';
 107
 108             $design_result_html .= "<tr><td>".$plot_name."</td><td>".$stock_name."</td><td>".$check_name."</td><td>".$row_number."</td><td>".$col_number."</td><td>".$block_number."</td><td>".$block_row_number."</td><td>".$block_col_number."</td><td>".$rep_number."</td></tr>";
 109         }
 110     }
 111
 112     $design_result_html .= "</table>";
 113     return  "$design_result_html";
 114 }
 115
 116 sub design_info_view {
 117   my $design_ref = shift;
 118   my $design_info_ref = shift;
 119   my %design = %{$design_ref};
 120   my %design_info = %{$design_info_ref};
 121   my %block_hash;
 122   my %rep_hash;
 123   my $design_info_html;
 124   my $design_description;
 125
 126
 127   $design_info_html .= "<dl>";
 128
 129   if ($design_info{'design_type'}) {
 130     $design_description = $design_info{'design_type'};
 131     if ($design_info{'design_type'} eq "CRD") {
 132       $design_description = "Completely Randomized Design";
 133     }
 134     if ($design_info{'design_type'} eq "RCBD") {
 135       $design_description = "Randomized Complete Block Design";
 136     }
 137     if ($design_info{'design_type'} eq "Alpha") {
 138       $design_description = "Alpha Lattice Incomplete Block Design";
 139     }
 140     if ($design_info{'design_type'} eq "Augmented") {
 141       $design_description = "Augmented Incomplete Block Design";
 142     }
 143     if ($design_info{'design_type'} eq "MAD") {
 144       $design_description = "Modified Augmented Design";
 145     }
 146     if ($design_info{'design_type'} eq "greenhouse") {
 147       $design_description = "Greenhouse Design";
 148     }
 149 #    if ($design_info{'design_type'} eq "MADII") {
 150 #      $design_description = "Modified Augmented Design II";
 151 #    }
 152 #    if ($design_info{'design_type'} eq "MADIII") {
 153 #      $design_description = "Modified Augmented Design III";
 154 #    }
 155 #    if ($design_info{'design_type'} eq "MADIV") {
 156 #      $design_description = "Modified Augmented Design IV";
 157 #    }
 158     $design_info_html .= "<dt>Design type</dt><dd>".$design_description."</dd>";
 159   }
 160   if ($design_info{'number_of_stocks'}) {
 161     $design_info_html .= "<dt>Number of accessions</dt><dd>".$design_info{'number_of_stocks'}."</dd>";
 162   }
 163   if ($design_info{'number_of_controls'}) {
 164     $design_info_html .= "<dt>Number of controls</dt><dd>".$design_info{'number_of_controls'}."</dd>";
 165   }
 166
 167   foreach my $key (sort { $a <=> $b} keys %design) {
 168     my $current_block_number = $design{$key}->{block_number};
 169     my $current_rep_number;
 170     if ($current_block_number) {
 171         if ($block_hash{$current_block_number}) {
 172           $block_hash{$current_block_number} += 1;
 173         } else {
 174           $block_hash{$current_block_number} = 1;
 175         }
 176     }
 177     if ($design{$key}->{rep_number}) {
 178       $current_rep_number = $design{$key}->{rep_number};
 179       if ($rep_hash{$current_rep_number}) {
 180         $rep_hash{$current_rep_number} += 1;
 181       } else {
 182         $rep_hash{$current_rep_number} = 1;
 183       }
 184     }
 185   }
 186
 187   if (%block_hash) {
 188     $design_info_html .= "<dt>Number of blocks</dt><dd>".scalar(keys %block_hash)."</dd>";
 189     $design_info_html .= "<dt>Number of accessions per block</dt><dd>";
 190     foreach my $key (sort { $a <=> $b} keys %block_hash) {
 191       $design_info_html .= "Block ".$key.": ".$block_hash{$key}." accessions <br>";
 192     }
 193     $design_info_html .= "</dt>";
 194   }
 195
 196
 197   if (%rep_hash) {
 198     $design_info_html .= "<dt>Number of reps</dt><dd>".scalar(keys %rep_hash)."</dd>";
 199   }
 200
 201   $design_info_html .= "</dl>";
 202
 203   return $design_info_html;
 204
 205 }
 206
 207
 208 ######
 209 1;
 210 ######