Commit c2036b58 authored by Thomas Van Parys's avatar Thomas Van Parys
Browse files

Change title result page and add extra white space check on input files

parent 4db52058
......@@ -39,8 +39,8 @@ else { # actually compute!
die 500, "FIELD target sequence is empty \n" if ! $cgi->param('target_file') && ! $cgi->param('target');
die 500, "FIELD microRNA sequence is empty\n" if ! $cgi->param('microrna_file') && ! $cgi->param('microrna');
die 500, "file name of target sequence should not contain whitespace" if $cgi->param('target_file') =~ m/[\s\+]/;
die 500, "file name of microRNA sequence should not contain whitespace" if $cgi->param('microrna_file') =~ m/[\s\+]/;
die 500, "file name of target sequence should not contain whitespace" if $cgi->param('target_file') && $cgi->param('target_file') =~ m/[\s\+]/;
die 500, "file name of microRNA sequence should not contain whitespace" if $cgi->param('microrna_file') && $cgi->param('microrna_file') =~ m/[\s\+]/;
# write down microRNA into file
my $microrna = $cgi->param('microrna');
......@@ -176,7 +176,7 @@ sub get_file {
sub get_header {
my $header = get_file('/www/group/biocomp/extra/cgi-bin/biocomp/layout_header.thtml');
$header =~ s/<\?\= \$title_for_layout; \?>/TAPIR/g;
$header =~ s/<\?php echo \$title_for_layout \?>/TAPIR Results/g;
return $header;
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment