[Bio] / FigKernelPackages / raelib.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/raelib.pm

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

revision 1.21, Sat Jul 9 19:59:23 2005 UTC revision 1.22, Sun Jul 10 22:48:23 2005 UTC
# Line 479  Line 479 
479  sub scrolling_subsys_list {  sub scrolling_subsys_list {
480   my ($self, $cgi, $multiple)=@_;   my ($self, $cgi, $multiple)=@_;
481   $multiple=0 unless (defined $multiple);   $multiple=0 unless (defined $multiple);
482   my @ss=$fig->all_subsystems();   my @ss=sort {uc($a) cmp uc($b)} $fig->all_subsystems();
483   my $label;   my $label;
484   # generate labels for the list   # generate labels for the list
485   foreach my $s (@ss) {my $k=$s; $k =~ s/\_/ /g; $k =~ s/  / /g; $k =~ s/\s+$//; $label->{$s}=$k}   foreach my $s (@ss) {my $k=$s; $k =~ s/\_/ /g; $k =~ s/  / /g; $k =~ s/\s+$//; $label->{$s}=$k}

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3