diff bin/html.pm @ 30:a8a6e346893f draft

Uploaded

--- 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";