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 3ccd79b04fc951c098a4fc3cf2c795e06df6c99a..db4845106749bbdf44582bffb005aa4dbc5d2d60 100755 (executable)
--- 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' );