# HG changeset patch # User romaingred # Date 1511877274 18000 # Node ID a8a6e346893f1f160e22926eb388fa5f2a737973 # Parent 0a47c6cf912dc2383f8fd177b96d8161fc848af1 Uploaded 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 "
"; print $h "

Ping Pong Partners

\n";