microarray percentile summary from dcallan

View/lib/perl/GraphPackage/Templates/MicroarrayPercentileSummary.pm

@@ -0,0 +1,66 @@
+package ApiCommonWebsite::View::GraphPackage::Templates::MicroarrayPercentileSummary;
+
+use strict;
+use vars qw( @ISA );
+
+@ISA = qw( ApiCommonWebsite::View::GraphPackage::Templates::Expression );
+use ApiCommonWebsite::View::GraphPackage::Templates::Expression;
+use Data::Dumper;
+use LWP::Simple;
+use JSON;
+
+# @Override
+sub getAllProfileSetNames {
+  my ($self) = @_;
+
+  my $id = $self->getId();
+
+  my @rv = ();
+
+  my $url = $self->getBaseUrl() . '/a/service/profileSet/MicroarraySummaryProfiles/' . $id;
+  my $content = get($url);
+  my $json = from_json($content);
+  foreach my $profile (@$json) {
+    my $profileName = $profile->{'PROFILE_SET_NAME'};
+    my $displayName = $profile->{'DISPLAY_NAME'};
+    my $profileType = $profile->{'PROFILE_TYPE'};
+    next if($self->isExcludedProfileSet($profileName));
+    my $p = {profileName=>$profileName, profileType=>$profileType, displayName=>$displayName};
+    push @rv, $p;
+  }
+
+  return \@rv;
+}
+
+
+# @Override
+# so as not to sort plotprofiles
+sub orderPlotProfiles {
+  my ($self, $plotProfiles) = @_;
+  return $plotProfiles;
+}
+
+# avoid any specific logic in Expression around percentile profiles
+sub getKey {
+  return "microarray_summary";
+}
+
+1;
+
+
+package ApiCommonWebsite::View::GraphPackage::Templates::MicroarrayPercentileSummary::All;
+use base qw( ApiCommonWebsite::View::GraphPackage::Templates::MicroarrayPercentileSummary );
+
+use strict;
+
+  sub getGraphType { 'line' }
+  sub excludedProfileSetsString { '' }
+  sub getSampleLabelsString { '' }
+  sub getColorsString { 'black' }
+  sub getForceXLabelsHorizontalString { 'true' }
+  sub getBottomMarginSize { 0 }
+  sub getExprPlotPartModuleString { 'MicroarrayPercentileSummary' }
+  sub getXAxisLabel { 'Percentile - Sample 1' }
+  sub useLegacy { return 0; }
+
+1;