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

Diff of /FigKernelPackages/TransactionProcessor.pm

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

revision 1.1, Thu Aug 11 03:09:41 2005 UTC revision 1.5, Mon Dec 5 19:06:30 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    #
3    # Copyright (c) 2003-2006 University of Chicago and Fellowship
4    # for Interpretations of Genomes. All Rights Reserved.
5    #
6    # This file is part of the SEED Toolkit.
7    #
8    # The SEED Toolkit is free software. You can redistribute
9    # it and/or modify it under the terms of the SEED Toolkit
10    # Public License.
11    #
12    # You should have received a copy of the SEED Toolkit Public License
13    # along with this program; if not write to the University of Chicago
14    # at info@ci.uchicago.edu or the Fellowship for Interpretation of
15    # Genomes at veronika@thefig.info or download a copy from
16    # http://www.theseed.org/LICENSE.TXT.
17    #
18    
19    
20  package TransactionProcessor;  package TransactionProcessor;
21    
# Line 182  Line 199 
199      $self->{orgStats}->Add($name, 1);      $self->{orgStats}->Add($name, 1);
200  }  }
201    
202    =head3 AddStats
203    
204    C<< $xprc->AddStats($name1, $name2, ... $nameN); >>
205    
206    Insure statistics with the specified names exist in the organism statistics
207    object.
208    
209    =over 4
210    
211    =item name1, name2, ..., nameN
212    
213    Names of the statistics to create.
214    
215    =back
216    
217    =cut
218    #: Return Type ;
219    sub AddStats {
220        # Get the parameters.
221        my ($self, @names) = @_;
222        # Create the statistics.
223        map { $self->{orgStats}->Add($_, 0) } @names;
224    }
225    
226  =head3 AddMessage  =head3 AddMessage
227    
228  C<< $xprc->AddMessage($message); >>  C<< $xprc->AddMessage($message); >>
# Line 256  Line 297 
297      # Roll it up into the global statistics object.      # Roll it up into the global statistics object.
298      $self->{stats}->Accumulate($retVal);      $self->{stats}->Accumulate($retVal);
299      # Count this genome.      # Count this genome.
300      $self->{stats}->Add("genome", 1);      $self->{stats}->Add("genomes", 1);
301      # Return the genome statistics.      # Return the genome statistics.
302      return $retVal;      return $retVal;
303  }  }
# Line 482  Line 523 
523      # Get the parameters.      # Get the parameters.
524      my ($self) = @_;      my ($self) = @_;
525      # Return the directory name.      # Return the directory name.
526      return $self->Directory;      return $self->{directory};
527  }  }
528    
529  =head3 IDHash  =head3 IDHash

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3