Galaxy |

Changeset 30:a8a6e346893f (2017-11-28)

Previous changeset 29:0a47c6cf912d (2017-11-09) Next changeset 31:241aa6141cac (2017-11-28)

Commit message:
Uploaded

modified:
bin/html.pm

diff -r 0a47c6cf912d -r a8a6e346893f bin/html.pm
--- a/bin/html.pm Thu Nov 09 05:28:50 2017 -0500
+++ b/bin/html.pm Tue Nov 28 08:54:34 2017 -0500

@@ -40,14 +40,14 @@

sub details_pages
{
- my ( $dir_details, $prefix, $list_mainTabP, $current, $misTE, $dir_root ) = @_;
+ my ( $dir_details, $prefix, $list_mainTabP, $current, $misTE, $dir_root, $ppp ) = @_;
   my ($Hex, $HTE, $HG, $NonUniTE, $NonUniG, $UniG ) = get_subgroups( $dir_details, $current, $misTE, $dir_root );

   my $html_ref = $1.'-PPP.html' if $prefix =~ /$dir_root(.*)/;
   open my $h, '>',  $prefix.'-TEs.html' || die "cannot create  $prefix-TEs.html $!\n";
   header($h);
   navbar ( $h, $list_mainTabP, $current );
-  if ( $prefix =~ /bonafide_reads$/ )
+  if ( $prefix =~ /piRNAs$/ && $ppp eq 'true' )
   {
    print $h " <div class=\"container\">";
    print $h " <p><a class=\"btn\" href=\"$html_ref\">Ping Pong Partners</a></p>\n";