From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Wed, 3 Mar 2010 10:18:46 +0000 (+0000)
Subject: fixed empty Q_ID val in BGB
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a690d5fca2d24cb5d308d693dd9a225fba1d89b5;p=biopieces.git

fixed empty Q_ID val in BGB

git-svn-id: http://biopieces.googlecode.com/svn/trunk@888 74ccb610-7750-0410-82ae-013aeee3265d
---

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' );