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

Diff of /FigWebServices/genome_statistics.cgi

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

revision 1.22, Wed Aug 10 16:17:52 2005 UTC revision 1.23, Wed Aug 10 17:13:45 2005 UTC
# Line 70  Line 70 
70          my $user = $cgi->param('user');          my $user = $cgi->param('user');
71          push(@$html,"<a href=./genome_statistics.cgi?genome=$genome&request=show_subsystems&user=$user>Show Subsystems</a><br>\n");          push(@$html,"<a href=./genome_statistics.cgi?genome=$genome&request=show_subsystems&user=$user>Show Subsystems</a><br>\n");
72          push(@$html,"<a href=./genome_statistics.cgi?genome=$genome&request=show_reactions&user=$user>Show Reactions</a><br>\n");          push(@$html,"<a href=./genome_statistics.cgi?genome=$genome&request=show_reactions&user=$user>Show Reactions</a><br>\n");
73            if (&model_for_genome($genome))
74            {
75                push(@$html,"<a href=./status_of_model.cgi?user=$user&model=$genome>PEGs in published reaction model that are not yet covered</a><br>\n");
76            }
77          push(@$html,$cgi->br);          push(@$html,$cgi->br);
78      }      }
79  }  }
# Line 613  Line 617 
617   }   }
618  }  }
619    
620    sub model_for_genome {
621        my($genome) = @_;
622    
623        return -s "$FIG_Config::global/Models/$genome";
624    }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3