Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Emmanuel QUEVILLON
BIGSdb
Commits
2ca0fe5c
Commit
2ca0fe5c
authored
Jan 20, 2015
by
Keith Jolley
Browse files
Download alleles: Fix full name and product display.
parent
89b0d30f
Changes
1
Hide whitespace changes
Inline
Side-by-side
lib/BIGSdb/DownloadAllelesPage.pm
View file @
2ca0fe5c
...
@@ -398,8 +398,14 @@ sub _print_locus_row {
...
@@ -398,8 +398,14 @@ sub _print_locus_row {
my
$desc
=
$self
->
{'
datastore
'}
->
run_query
(
"
SELECT full_name,product FROM locus_descriptions WHERE locus=?
",
my
$desc
=
$self
->
{'
datastore
'}
->
run_query
(
"
SELECT full_name,product FROM locus_descriptions WHERE locus=?
",
$locus
,
{
fetch
=>
'
row_hashref
',
cache
=>
'
DownloadAllelesPage::print_locus_row::desc
'
}
);
$locus
,
{
fetch
=>
'
row_hashref
',
cache
=>
'
DownloadAllelesPage::print_locus_row::desc
'
}
);
my
@names_product
;
my
@names_product
;
push
@names_product
,
(
$desc
->
{'
full_name
'}
=~
s/[\r\n]/ /g
)
if
$desc
->
{'
full_name
'};
if
(
$desc
->
{'
full_name
'}
)
{
push
@names_product
,
(
$desc
->
{'
product
'}
=~
s/[\r\n]/ /g
)
if
$desc
->
{'
product
'};
$desc
->
{'
full_name
'}
=~
s/[\r\n]/ /g
;
push
@names_product
,
$desc
->
{'
full_name
'}
}
if
(
$desc
->
{'
product
'}
)
{
$desc
->
{'
product
'}
=~
s/[\r\n]/ /g
;
push
@names_product
,
$desc
->
{'
product
'};
}
local
$"
=
'
/
';
local
$"
=
'
/
';
$products
=
"
@names_product
";
$products
=
"
@names_product
";
print
"
<td>
$products
</td>
";
print
"
<td>
$products
</td>
";
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment