version 1.33, 2005/05/17 17:48:19
|
version 1.34, 2005/08/05 20:06:22
|
Line 458 sub put_sequence_data_in_safe_space {
|
Line 458 sub put_sequence_data_in_safe_space {
|
# 1. duplicate titles - they get the total for the titles |
# 1. duplicate titles - they get the total for the titles |
# 2. control characters in titles - use q{} around the string to |
# 2. control characters in titles - use q{} around the string to |
# deal with it. |
# deal with it. |
my $title = &HTML::Entities::decode($seq->{'title'}); |
my $title = &HTML::Entities::decode($seq->title()); |
$title =~ s/&\#058;/:/g; |
$title =~ s/&\#058;/:/g; |
if (@Rows) { |
if (@Rows) { |
$data .= 'push(@{$Sequence_Rows{"'.quotemeta($title).'"}},'. |
$data .= 'push(@{$Sequence_Rows{"'.quotemeta($title).'"}},'. |