From a690d5fca2d24cb5d308d693dd9a225fba1d89b5 Mon Sep 17 00:00:00 2001 From: martinahansen Date: Wed, 3 Mar 2010 10:18:46 +0000 Subject: [PATCH] fixed empty Q_ID val in BGB git-svn-id: http://biopieces.googlecode.com/svn/trunk@888 74ccb610-7750-0410-82ae-013aeee3265d --- www/index.cgi | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/www/index.cgi b/www/index.cgi index 3ccd79b..db48451 100755 --- a/www/index.cgi +++ b/www/index.cgi @@ -912,9 +912,11 @@ sub section_export # Returns a list. - my ( @row_dna_contig, @html ); + my ( $feat, @row_dna_contig, @html ); - push @row_dna_contig, Maasha::XHTML::p( txt => qq(Export Feature: "$cookie->{ 'Q_ID' }" DNA from Contig: ), class => 'inline' ); + $feat = $cookie->{ 'Q_ID' } || "[no name]"; + + push @row_dna_contig, Maasha::XHTML::p( txt => qq(Export Feature: "$feat" DNA from Contig: ), class => 'inline' ); push @row_dna_contig, Maasha::XHTML::p( txt => "$cookie->{ 'CONTIG' } Start: ", class => 'inline' ); push @row_dna_contig, Maasha::XHTML::text( name => "s_beg", value => Maasha::Calc::commify( $cookie->{ 'S_BEG' } ), size => 15 ); push @row_dna_contig, Maasha::XHTML::p( txt => "End: ", class => 'inline' ); -- 2.39.5