Fix query_result.pl NICE rendering

7c6a8457 · Sebastien Moretti · 332cb1c3 · 7c6a8457 · 7c6a8457
Commit 7c6a8457 authored May 11, 2023 by Sebastien Moretti
--- a/cgi-bin/query_result.pl
+++ b/cgi-bin/query_result.pl
@@ -336,8 +336,6 @@ elsif ($out_format eq 'GC')
 	print ($query->end_html);
    }
 }
-
-
 elsif ($out_format eq 'NICE'){
    print ($query->header);
    print "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'
@@ -353,42 +351,37 @@ elsif ($out_format eq 'NICE'){
         </head>
    ";

-    $HEADER = "../htdocs/header.php";
-    open (HEADER) or die "Can't open the file!";
-    print <HEADER>;
-    close (HEADER);
-
-
+    my $header = '../htdocs/left_menu_fetch_biomart.php';
+    open(my $HEADER, '<', "$header")  or die "Can't open the [$header] file!";
+    print <$HEADER>;
+    close $HEADER;

    if (scalar(@entries) > 1){
-	print "<div align=\"center\"><b>";
+        print "<div align=\"center\"><strong>";
    }
-    foreach $entry(@entries)
-    {
+    foreach $entry(@entries){
        if (scalar(@entries) > 1){
            print "[<a href=\"\#$entry\">$entry</a>]\n";
        }
-	$record.=$entry."__";
+        $record .= $entry.'__';
    }
    if (scalar(@entries) > 1){
-	print "</b></div><br />\n";
+        print "</strong></div><br />\n";
    }

    print (`./EPD2NICE.pl $record`);

-
-    $FOOTER = "../htdocs/footer.html";
-    open (FOOTER) or die "Can't open the file!";
-    print <FOOTER>;
-    close (FOOTER);
+    my $footer = '../htdocs/footer.html';
+    open(my $FOOTER, '<', "$footer")  or die "Can't open the [$footer] file!";
+    print <$FOOTER>;
+    close $FOOTER;
    print ($query->end_html);
 }
 elsif ($out_format eq 'JAVA')
 {
    print ($query->header);

-    foreach $entry (@entries)
-    {
+    foreach $entry (@entries){
        print ("<h2>$entry</h2><HR>");
        print("<font size\=-2\ width=100%><br>The SEView graphical sequence element viewer is described in: Junier T. and Bucher P., SEView: A java applet for browsing molecular sequence data. <br>In Silico Biol. 1 (1998) 13-20. at the <b>URL: <a href=\"http://www.bioinfo.de/isb/1998/01/0003/\"> http://www.bioinfo.de/isb/1998/01/0003/</a></b>.<\/font\>\n<p>\n");
        $html = `./displayTFRecord.pl $entry`;
@@ -397,7 +390,6 @@ elsif ($out_format eq 'JAVA')
    }
    print ($query->end_html);
 }
-
 elsif ($out_format eq 'XML')
 {
    $tmpfile="../wwwtmp/tmp\_$$\.xml";

--- a/htdocs/left_menu_fetch_biomart.php
+++ b/htdocs/left_menu_fetch_biomart.php
@@ -105,7 +105,7 @@
 <br>
   <div id='sib_search'>

-     <form name="searchDB" method="POST" action="/master_search.php" onSubmit="return valForm()">
+     <form name="searchDB" method="POST" action="/epd/master_search.php" onSubmit="return valForm()">
   <div id="epdheader" align="center" valign="top" style="line-height: 25px; height: 25px;">
   <table>
   <tr>