Hi
I need to insert an image at the top of the page through the following script. I am pasting a part of the script.
#!/usr/bin/perl -w
use CGI qw/:standard/;
use mimp;
print header,
start_html('Mapping Database Query Interface'),
"<center>",
"<marquee width=300 height=50> <img src = rail.bmp> </marquee>",
" ",
h2("<marquee bgcolor=orange><blink>Mapping Database Query Interface</blink></marquee>"),
"<br",
"<br>",
start_form,
"Enter Query One ",
textfield(-name=>'queryone', -size=>30),
" with ",
popup_menu(-name=>'option', -values=>['expression_type_Landrace','expression_type_Pietran','expression_type_between_breed','score','mapped_with_score','mapped','gene_location']),
" ",
"<center>",
"<br>",
"Enter Query two with query one if required ",
textfield(-name=>'querytwo', -size=>30),
submit,
"<br>",
"</center>",
end_form,
start_form,
submit(-value=>'Submit BLAST',-name=>'blast'),
end_form,
"<br>",
hr;
I need to insert an image at the top of the page through the following script. I am pasting a part of the script.
#!/usr/bin/perl -w
use CGI qw/:standard/;
use mimp;
print header,
start_html('Mapping Database Query Interface'),
"<center>",
"<marquee width=300 height=50> <img src = rail.bmp> </marquee>",
" ",
h2("<marquee bgcolor=orange><blink>Mapping Database Query Interface</blink></marquee>"),
"<br",
"<br>",
start_form,
"Enter Query One ",
textfield(-name=>'queryone', -size=>30),
" with ",
popup_menu(-name=>'option', -values=>['expression_type_Landrace','expression_type_Pietran','expression_type_between_breed','score','mapped_with_score','mapped','gene_location']),
" ",
"<center>",
"<br>",
"Enter Query two with query one if required ",
textfield(-name=>'querytwo', -size=>30),
submit,
"<br>",
"</center>",
end_form,
start_form,
submit(-value=>'Submit BLAST',-name=>'blast'),
end_form,
"<br>",
hr;