[Bio] / FigWebServices / subsys.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.85, Fri Jul 8 17:03:52 2005 UTC revision 1.86, Fri Jul 8 19:17:08 2005 UTC
# Line 1510  Line 1510 
1510                      foreach my $cv ( @$cell )  #  Should this be flattened across all pegs?                      foreach my $cv ( @$cell )  #  Should this be flattened across all pegs?
1511                      {                      {
1512                          next unless ( $ss = $superscript->{ $cv->[0] } );                          next unless ( $ss = $superscript->{ $cv->[0] } );
1513                          my %flatten = map { ( $_, 1 ) } @$ss;                          # my %flatten = map { ( $_, 1 ) } @$ss;
1514                          $sscript{ join ",", sort { $a <=> $b } keys %flatten } = 1;  #  string of all values for peg                          # $sscript{ join ",", sort { $a <=> $b } keys %flatten } = 1;  #  string of all values for peg
1515                            foreach ( @$ss ) { $sscript{ $_ } = 1 }
1516                        }
1517                        if (scalar keys %sscript)  # order by number, and format
1518                        {
1519                            my @ss = map  { $_->[0] }
1520                                     sort { $a->[1] <=> $b->[1] }
1521                                     map  { my ( $num ) = $_ =~ /\>(\d+)\</; [ $_, $num || 0 ] } keys %sscript;
1522                            $sscript = "&nbsp;<sup>[" . join( ", ", @ss ) . "]</sup>"
1523                      }                      }
                     if (scalar keys %sscript) { $sscript = "&nbsp;<sup>[" . join( ", ", keys %sscript) . "]</sup>" }  
1524                  }                  }
1525    
1526                  my $cell_data;                  my $cell_data;

Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3