Commit ffcacbda authored by Keith Jolley's avatar Keith Jolley

Version 1.3.3

parent 3c008aad
......@@ -21,7 +21,7 @@
package BIGSdb::main;
use strict;
use warnings;
use version; our $VERSION = qv('1.3.2');
use version; our $VERSION = qv('1.3.3');
###########Local configuration################################
use constant {
......
......@@ -80,7 +80,7 @@ sub print_content {
<td>" . ( $locus_info->{'dbase_id2_value'} || '' ) . "</td>
<td>" . ( $locus_info->{'dbase_seq_field'} || '' ) . "</td><td>";
eval {
undef = $self->{'datastore'}->get_locus($_)->{'db'};
my $locus_db = $self->{'datastore'}->get_locus($_)->{'db'};
};
if ($@) {
$buffer .= '<span class="statusbad">X</span>';
......
......@@ -297,7 +297,7 @@ sub get_isolate_record {
#Do not print row
} elsif ( $thisfield{'web'} ) {
my $url = $thisfield{'web'};
$url =~ s/\[\\\?\]/$data{$field}/;
$url =~ s/\[\\*\?\]/$data{$field}/;
$url =~ s/\&/\&amp;/g;
my $domain;
if ( ( lc($url) =~ /http:\/\/(.*?)\/+/ ) ) {
......
......@@ -1771,7 +1771,7 @@ sub _print_isolate_table {
next if $composite_display_pos{$_} ne $thisfieldname;
if ( $self->{'prefs'}->{'maindisplayfields'}->{$_} ) {
my $value = $self->{'datastore'}->get_composite_value( $id, $_, \%data );
print "<td>$value</td>";
print defined $value ? "<td>$value</td>" : '<td />';
}
}
}
......@@ -1875,9 +1875,9 @@ sub _print_isolate_table {
$values->{ lc($_) } = '';
}
if ($url) {
print $values->{ lc($_) } ? "<td><a href=\"$url\">$values->{lc($_)}</a></td>" : '<td />';
print defined $values->{ lc($_) } ? "<td><a href=\"$url\">$values->{lc($_)}</a></td>" : '<td />';
} else {
print $values->{ lc($_) } ? "<td>$values->{lc($_)}</td>" : '<td />';
print defined $values->{ lc($_) } ? "<td>$values->{lc($_)}</td>" : '<td />';
}
} else {
print "<td />";
......
Markdown is supported
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