version 1.109, 2003/12/09 21:14:23
|
version 1.110, 2003/12/11 22:18:04
|
Line 188 sub get_sequence_assessment_data {
|
Line 188 sub get_sequence_assessment_data {
|
$title =~ s/\:/\&\#058;/g; |
$title =~ s/\:/\&\#058;/g; |
$symb = $curRes->symb(); |
$symb = $curRes->symb(); |
$src = $curRes->src(); |
$src = $curRes->src(); |
|
# Grab the filename if there is not title available |
|
if (! defined($title) || $title eq '') { |
|
($title) = ($src=~ m:/([^/]*)$:); |
|
} |
my $parts = $curRes->parts(); |
my $parts = $curRes->parts(); |
my %partdata; |
my %partdata; |
foreach my $part (@$parts) { |
foreach my $part (@$parts) { |