[Bio] / Sprout / ShowCounts.pl Repository:
ViewVC logotype

Diff of /Sprout/ShowCounts.pl

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

revision 1.2, Tue Jun 6 05:45:49 2006 UTC revision 1.3, Wed Jun 7 01:56:49 2006 UTC
# Line 17  Line 17 
17  and the number of new annotations. This file is included in the  and the number of new annotations. This file is included in the
18  C<index.php> document.  C<index.php> document.
19    
20  =item subsummary.inc  =item forms/subsystems.inc
21    
22  Displays a form allowing the user to select an organism and see a summary of  Displays a form allowing the user to select an organism and see a summary of
23  its subsystems and reactions. This file is included in the  its subsystems and reactions. This file is included in the
# Line 82  Line 82 
82  use File::Copy;  use File::Copy;
83  use File::Path;  use File::Path;
84  use FIG;  use FIG;
85    use CGI qw(:standard);
86    
87  # Get the command-line options and parameters.  # Get the command-line options and parameters.
88  my ($options, @parameters) = StandardSetup([qw(Sprout ERDB SFXlate) ],  my ($options, @parameters) = StandardSetup([qw(Sprout ERDB SFXlate) ],
# Line 102  Line 103 
103  # Create the counts file.  # Create the counts file.
104  CreateCounts($sfx, $options->{age}, $parameters[0], "$targetDir/version.inc");  CreateCounts($sfx, $options->{age}, $parameters[0], "$targetDir/version.inc");
105  # Create the subsystem summary file.  # Create the subsystem summary file.
106  CreateSubForm($sfx, "$targetDir/subsummary.inc");  CreateSubForm($sfx, "$targetDir/forms/subsystems.inc");
107  # Create the database documentation file.  # Create the database documentation file.
108  CreateSproutDoc($sfx, "$targetDir/sproutdb.inc");  CreateSproutDoc($sfx, "$targetDir/sproutdb.inc");
109  # Tell the user we're done.  # Tell the user we're done.
# Line 206  Line 207 
207  sub CreateSubForm {  sub CreateSubForm {
208      # Get the parameters.      # Get the parameters.
209      my ($sfx, $fileName) = @_;      my ($sfx, $fileName) = @_;
210        # Start the form.
211        my @page = ();
212        push @page, start_form({method => "post", action => "../FIG/genome_statistics.cgi",
213                                enctype=> "application/x-www-form-urlencoded"});
214        # Make sure the script knows it's for SPROUT.
215        push @page, input({type => "hidden", name => "SPROUT", value => "1"});
216        # Surround the form parts with a table.
217        push @page, "<table><tr><td>";
218        # Create the gene menu.
219        push @page, $sfx->GeneMenu({ name => 'genome', size => 10 }, "", []);
220        # End the first table cell.
221        push @page, "</td></tr><tr><td>";
222        # Add the buttons.
223        push @page, input({type => "submit", name => "show_subsystems",
224                           value => "Show Subsystems"});
225        push @page, input({type => "submit", name => "show_reactions",
226                           value => "Show Reactions"});
227        # Close the table.
228        push @page, "</td></tr></table>";
229        # Close the form.
230        push @page, end_form();
231        # Put together all the pieces.
232        my $wholePage = join("\n", @page);
233      # Open the output file.      # Open the output file.
234      my $handle = Open(undef, ">$fileName");      my $handle = Open(undef, ">$fileName");
235      # TODO      # Write out the HTML.
236        print $handle $wholePage;
237      # Close the file.      # Close the file.
238      close $handle;      close $handle;
239    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3