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

Diff of /FigWebServices/protein_info.cgi

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

revision 1.4, Fri Jul 15 17:19:24 2005 UTC revision 1.5, Fri Jul 15 17:31:49 2005 UTC
# Line 101  Line 101 
101     unless ($ffp) {$ffp=" None "}     unless ($ffp) {$ffp=" None "}
102     if ($first)     if ($first)
103     {     {
104       push @$tab, [$first, "<a href='/FIG/protein.cgi?user=$user&prot=$peg'>$peg</a>\n", scalar($fig->function_of($peg, $user)), $ss, $ffp]; undef($first)       push @$tab, [$first, "<a href='/FIG/protein.cgi?user=$user&prot=$peg'>$peg</a>\n",
105            $fig->genus_species($fig->genome_of($peg)), scalar($fig->function_of($peg, $user)), $ss, $ffp]; undef($first)
106     }     }
107     else     else
108     {     {
109       push @$tab, ["<a href='/FIG/protein.cgi?user=$user&prot=$peg'>$peg</a>\n", scalar($fig->function_of($peg, $user)), $ss, $ffp]       push @$tab, ["<a href='/FIG/protein.cgi?user=$user&prot=$peg'>$peg</a>\n", $fig->genus_species($fig->genome_of($peg)),
110                    scalar($fig->function_of($peg, $user)), $ss, $ffp]
111     }     }
112    }    }
113   }   }
114    
115   push @$html, &HTML::make_table(["ID", "FIG ID", "Functional Role", "Subsystems", "Protein Families"], $tab, "IDs"), "\n";   push @$html, &HTML::make_table(["ID", "FIG ID", "Genus Species", "Functional Role", "Subsystems", "Protein Families"], $tab, "IDs"), "\n";
116   if (scalar @unknowns)   if (scalar @unknowns)
117   {   {
118     open (OUT, ">$FIG_Config::temp/protein_info_not_found.$$.txt") || die "Can't open $FIG_Config::temp/protein_info_not_found.$$.txt";     open (OUT, ">$FIG_Config::temp/protein_info_not_found.$$.txt") || die "Can't open $FIG_Config::temp/protein_info_not_found.$$.txt";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3