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

Diff of /FigWebServices/att2sub.cgi

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

revision 1.2, Sun Jul 24 19:20:06 2005 UTC revision 1.4, Mon Aug 1 16:29:22 2005 UTC
# Line 39  Line 39 
39          }          }
40          my @list = keys(%list_of_ss);          my @list = keys(%list_of_ss);
41    
42          my $prefix = "$FIG_Config::cgi_url"."subsys.cgi?user=&ssa_name=";          my $prefix = &FIG::cgi_url() . "/subsys.cgi?user=&ssa_name=";
43          my $suffix = "&request=show_ssa";          my $suffix = "&request=show_ssa";
44          push(@$html,"<TABLE>");          push(@$html,"<TABLE>");
45          foreach my $s (@list)          foreach my $s (@list)
# Line 66  Line 66 
66  my @genomes = $fig->genomes('complete');  my @genomes = $fig->genomes('complete');
67  foreach $g (@genomes){  foreach $g (@genomes){
68          my $gs = $fig->genus_species($g);          my $gs = $fig->genus_species($g);
69          push(@gs_list, $g.", ".$gs);          push(@gs_list, $gs.", ".$g);
70  }  }
71    
72  @gs_list2 =sort {uc($a) cmp uc($b)} @gs_list;  @gs_list2 =sort {uc($a) cmp uc($b)} @gs_list;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3